login
A069709
Primes with arithmetic mean of digits an integer (sum of digits = a multiple of number of digits).
11
2, 3, 5, 7, 11, 13, 17, 19, 31, 37, 53, 59, 71, 73, 79, 97, 1021, 1061, 1069, 1087, 1151, 1201, 1223, 1249, 1289, 1429, 1447, 1483, 1487, 1511, 1559, 1601, 1609, 1627, 1663, 1667, 1753, 1847, 1861, 1933, 1951, 1973, 1999, 2011, 2099, 2141, 2213, 2239, 2293
OFFSET
1,1
LINKS
MATHEMATICA
Do[p = Prime[n]; If[ IntegerQ[ Apply[ Plus, IntegerDigits[p]] / Floor[ Log[10, p] + 1]], Print[p]], {n, 1, 10^3}]
Select[Prime[Range[400]], IntegerQ[Mean[IntegerDigits[#]]]&] (* Harvey P. Dale, Jan 29 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amarnath Murthy, Apr 08 2002
EXTENSIONS
Edited and extended by Robert G. Wilson v, Apr 12 2002
STATUS
approved