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
Links
- Jon E. Schoenfield, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Do[ If[ IntegerQ[ Apply[ Plus, IntegerDigits[n^2]] / Floor[ Log[10, n^2] + 1]], Print[n^2]], {n, 1, 10^3}]
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