OFFSET
1,1
EXAMPLE
41^2 = 1681 and (1 + 6 + 8 + 1)/4 = 4
58^2 = 3364 and (3 + 3 + 6 + 4)/4 = 4.
PROG
(PARI) dsum(n)={my(s=0); while(n>9, s+=n%10; n\=10); s+n};
for(n=1, 1e6, if(dsum(n^2)/#Str(n^2)==4, print1(n", "))) \\ Charles R Greathouse IV, Nov 01 2009
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Aug 26 2009
STATUS
approved