A069709 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

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

(list; graph; refs; listen; history; text; internal format)

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