OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..925
EXAMPLE
1667^2=2778889 and (2+7+7+8+8+8+9)/7=7
17313^2=299739969 and (2+9+9+7+3+9+9+6+9)/9=7.
MATHEMATICA
Select[Range[30000], Mean[IntegerDigits[#^2]]==7&] (* Harvey P. Dale, Feb 22 2013 *)
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)==7, print1(n", "))) \\ Charles R Greathouse IV, Nov 01 2009
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Aug 26 2009
STATUS
approved