|
|
A173225
|
|
a(n) is the smallest nonnegative m such that average digit of m^2 is n.
|
|
0
|
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|