OFFSET
1,3
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, r]; Print[A]]]
CROSSREFS
KEYWORD
base,more,nonn
AUTHOR
Erich Friedman, Jan 16 2002
EXTENSIONS
Description clarified, offset corrected, and a(12) added by Lars Blomberg, May 29 2011
STATUS
approved