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,1

Links

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

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

Cf. A069710, A069711, A069712.

Sequence in context: A002200 A181561 A216496 * A144755 A069090 A321150

Adjacent sequences: A069706 A069707 A069708 * A069710 A069711 A069712

Keyword

nonn,base

Author

Amarnath Murthy, Apr 08 2002

Extensions

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

Status

approved