OFFSET
1,2
EXAMPLE
264 is in the sequence because 264^2 = 69696, which is a palindrome.
MATHEMATICA
palQ[n_] := Block[{d = IntegerDigits[n]}, d == Reverse@d]; Select[ Range[10^6], Min@ IntegerDigits[#^2] > 0 && palQ[#^2] &] (* Giovanni Resta, Jun 27 2018 *)
PROG
(PARI) is(n) = my(d=digits(n^2)); d==Vecrev(d) && vecmin(d) > 0 \\ Felix Fröhlich, Jun 29 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Thana Somsirivattana, Jun 26 2018
EXTENSIONS
a(14)-a(35) from Giovanni Resta, Jun 27 2018
STATUS
approved