OFFSET
1,2
MATHEMATICA
d[n_]:=IntegerDigits[n]; t={m=1}; Do[If[Take[d[x=n^2], -Length[y=d[m]]]==y, AppendTo[t, m=x]], {n, Flatten[Table[10k+{-1, 1}, {k, 50000}]]}]; t (* Jayanta Basu, May 30 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jul 15 1999
EXTENSIONS
More terms from Jonathan Cross (jcross(AT)wcox.com), Oct 09 2001
STATUS
approved