A069709 Primes with arithmetic mean of digits an integer (sum of digits = a multiple of number of digits).

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

Author

Amarnath Murthy, Apr 08 2002

Keywords

• nonn
• base

Links

• Delbert L. Johnson, Table of n, a(n) for n = 1..20000

Crossrefs

Cf. A069710, A069711, A069712.

Programs

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 *)

Extensions

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