login
A285226
Primes with integer arithmetic mean of digits = 5 in base 10.
6
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
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
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Apr 19 2017
STATUS
approved