OFFSET
0,3
MATHEMATICA
Join[{0}, Flatten[Table[Select[Range[2000], Mean[IntegerDigits[#^2]] == n&, 1], {n, 9}]]] (* Harvey P. Dale, Feb 26 2012 *)
CROSSREFS
KEYWORD
base,nonn,fini,full
AUTHOR
Zak Seidov, Nov 22 2010
STATUS
approved