OFFSET
1,3
COMMENTS
a(13) > 2^63. - Donovan Johnson, May 24 2011
EXAMPLE
925 is pentagonal and 529 is square
MATHEMATICA
dtn[L_] := Fold[10#1+#2&, 0, L] A={0}; For[i=1, i>0, i++, t=i(3i-1)/2; r=dtn[Reverse[IntegerDigits[t]]]; If[IntegerQ[Sqrt[r]]&&Mod[t, 10]>0, AppendTo[A, t]; Print[A]]]
CROSSREFS
KEYWORD
base,more,nonn
AUTHOR
Erich Friedman, Jan 16 2002
EXTENSIONS
a(12) from Donovan Johnson, Apr 03 2008
Offset corrected by Donovan Johnson, May 24 2011
Description clarified and a(12) corrected by Lars Blomberg, May 29 2011
STATUS
approved