OFFSET
1,1
COMMENTS
The last term is a(2782) = 31616301. - Giovanni Resta, Jun 06 2015
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..2782 (all terms)
EXAMPLE
10000011^2 = 100000220000121;
1+0+0+0+0+0+2+2+0+0+0+0+1+2+1 = 9 = 3^2;
100+000+220+000+121 = 441 = 21^2;
10000+02200+00121 = 12321 = 111^2.
MATHEMATICA
Select[Range[10^7, 31622776], AllTrue[{Sqrt[Total[IntegerDigits[#^2]]], Sqrt[Total[ FromDigits/@ Partition[IntegerDigits[#^2], 3]]], Sqrt[Total[FromDigits/@Partition[IntegerDigits[#^2], 5]]]}, IntegerQ]&] (* Harvey P. Dale, Apr 11 2023 *)
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Doug Bell, Dec 31 2008
STATUS
approved