A285226 Primes with integer arithmetic mean of digits = 5 in base 10.

5, 19, 37, 73, 1289, 1487, 1559, 1667, 1847, 1973, 2099, 2297, 2459, 2477, 2549, 2657, 2693, 2729, 2819, 2837, 2909, 2927, 2963, 3089, 3359, 3449, 3467, 3539, 3557, 3593, 3719, 3863, 3881, 3917, 4079, 4259, 4349, 4457, 4493, 4547, 4583, 4637, 4673, 4691, 4817

Offset: 1

Author

Jaroslav Krizek, Apr 19 2017

Keywords

• nonn
• base
• changed

Links

• Jaroslav Krizek, Table of n, a(n) for n = 1..1000

Crossrefs

Primes from A061388. Subsequence of A069709.

Sequences of primes such that a(n) = k for k = 1, 2, 4, 5, 7 and 8: A069710 (k = 1), A285096 (k = 2), A285225 (k = 4), this sequence (k = 5), A285227 (k = 7), A285228 (k = 8).

Programs

Magma

[n: n in [1..100000] | IsPrime(n) and &+Intseq(n) mod #Intseq(n) eq 0 and &+Intseq(n) / #Intseq(n) eq 5];

Mathematica

Select[Prime@ Range@ PrimePi@ 5000, Mean@ IntegerDigits@ # == 5 &] (* Michael De Vlieger, Apr 22 2017 *)