|
%I #12 Aug 27 2013 13:22:20
%S 1,2,3,6,9,11,12,13,14,15,18,21,22,23,31,39,41,45,48,51,58,59,67,68,
%T 76,77,85,86,94,95,101,102,103,104,105,111,112,113,121,122,131,139,
%U 148,157,158,166,175,176,184,185,193,194,201,202,203,211,212,221,229
%N Sum of digits of n^2 is a square.
%C No trailing zeros allowed.
%H Zak Seidov, <a href="/A215618/b215618.txt">Table of n, a(n) for n = 1..1000</a>
%e a(59)=229 because 229^2=52441 and 5+2+4+4+1=16=4^2.
%t sdn2Q[n_]:=Module[{idn2=IntegerDigits[n^2]},Last[idn2]>0&&IntegerQ[Sqrt[ Total[idn2]]]]; Select[Range[300],sdn2Q] (* _Harvey P. Dale_, Aug 27 2013 *)
%Y Cf. A004159 (sum of digits of n^2).
%K nonn,base
%O 1,2
%A _Zak Seidov_, Aug 17 2012
|
