%I #10 Mar 31 2012 10:28:27
%S 0,1,529,1089,2116,6241,103041,26222944225,2648772525025,
%T 6262611355441,62443279235236,1520130841269290490409
%N Square numbers not divisible by 10 whose reverse is pentagonal.
%e 925 is pentagonal and 529 is square
%t 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]]]
%K base,more,nonn
%O 1,3
%A _Erich Friedman_, Jan 16 2002
%E Description clarified, offset corrected, and a(12) added by _Lars Blomberg_, May 29 2011
|