OFFSET
1,2
COMMENTS
No trailing zeros allowed.
LINKS
Zak Seidov, Table of n, a(n) for n = 1..1000
EXAMPLE
a(59)=229 because 229^2=52441 and 5+2+4+4+1=16=4^2.
MATHEMATICA
sdn2Q[n_]:=Module[{idn2=IntegerDigits[n^2]}, Last[idn2]>0&&IntegerQ[Sqrt[ Total[idn2]]]]; Select[Range[300], sdn2Q] (* Harvey P. Dale, Aug 27 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Aug 17 2012
STATUS
approved