login
A173225
a(n) is the smallest nonnegative m such that average digit of m^2 is n.
0
0, 1, 145, 12, 2, 8, 24, 1667, 313, 3
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
Sequence in context: A003837 A013863 A371624 * A126843 A099648 A043652
KEYWORD
base,nonn,fini,full
AUTHOR
Zak Seidov, Nov 22 2010
STATUS
approved