OFFSET
1,1
COMMENTS
There are 6368 such k's < 10^7: see link to 15217.html.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..2500
Zak Seidov, Average digit of n^2 is 2.
Zak Seidov, Case with trailing zeros.
EXAMPLE
145 is a term because 145^2 = 21025 and (2 + 1 + 0 + 2 + 5)/5 = 2.
MATHEMATICA
Select[Range[6500], Mean[IntegerDigits[#^2]]==2&] (* Harvey P. Dale, May 10 2021 *)
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)==2, print1(n", "))) \\ Charles R Greathouse IV, Nov 01 2009
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Aug 26 2009
EXTENSIONS
Edited by Charles R Greathouse IV, Mar 23 2010
STATUS
approved