A069711 Squares whose arithmetic mean of digits is an integer (i.e., the sum of digits is a multiple of the number of digits).

0, 1, 4, 9, 64, 144, 225, 324, 441, 576, 729, 900, 1681, 3364, 3481, 4624, 7225, 9025, 12769, 14884, 21025, 23104, 24649, 24964, 27556, 30976, 32041, 33856, 36100, 37249, 37636, 44944, 48841, 56644, 63001, 65536, 66049, 70756, 75076, 75625, 80089, 80656, 85264

Offset

1,3

Links

Jon E. Schoenfield, Table of n, a(n) for n = 1..10000

Mathematica

Do[ If[ IntegerQ[ Apply[ Plus, IntegerDigits[n^2]] / Floor[ Log[10, n^2] + 1]], Print[n^2]], {n, 1, 10^3}]

Crossrefs

Cf. A069709, A069710, A069712.

Sequence in context: A124683 A077163 A231812 * A062067 A110256 A095175

Adjacent sequences: A069708 A069709 A069710 * A069712 A069713 A069714

Keyword

base,nonn

Author

Amarnath Murthy, Apr 08 2002

Extensions

Edited and extended by Robert G. Wilson v, Apr 12 2002

0 prepended as a(1) and a(27)-a(43) from Jon E. Schoenfield, Jun 28 2018

Status

approved