OFFSET
1,2
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..97 (terms < 4*10^12)
EXAMPLE
963^2 = 927(369).
MATHEMATICA
fQ[n_] := StringPosition[ IntegerString[n^2], StringReverse@ IntegerString@n] != {}; k = 1; lst = {}; While[k < 38794050, If[ fQ@k, AppendTo[lst, k]]; k++ ]; lst (* Robert G. Wilson v, Jul 28 2010 *)
Select[Range[37*10^6], SequenceCount[Reverse[IntegerDigits[#^2]], IntegerDigits[ #]]>0&] (* The program uses the SequenceCount function from Mathematica version 10 *) (* Harvey P. Dale, May 02 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Jan 30 2006
EXTENSIONS
More terms from Robert G. Wilson v, Jul 28 2010
Terms a(33) and beyond from Giovanni Resta, May 04 2020
STATUS
approved