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

Links

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

Mathematica

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

Prog

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

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

Sequence in context: A232057 A031093 A297750 * A146861 A068963 A257929

Adjacent sequences: A285223 A285224 A285225 * A285227 A285228 A285229

Keyword

nonn,base

Author

Jaroslav Krizek, Apr 19 2017

Status

approved