OFFSET
1,3
LINKS
MATHEMATICA
id[n_]:=IntegerDigits[n]; palQ[n_]:=FromDigits[Reverse[id[n]]]==n; t={}; Do[If[palQ[x=n^2] && OddQ[Length[id[x]]], AppendTo[t, n]], {n, 1012102}]; t (* Jayanta Basu, May 13 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved