|
Search: id:A069711
|
|
|
| A069711 |
|
Squares with arithmetic mean of digits = integer (sum of digits = a multiple of the number of digits). |
|
+0
4
|
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
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: A140483 A124683 A077163 this_sequence A062067 A110256 A095175
Adjacent sequences: A069708 A069709 A069710 this_sequence A069712 A069713 A069714
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 08 2002
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 12 2002
|
|
|
Search completed in 0.002 seconds
|
