|
%I #8 Sep 08 2022 08:46:19
%S 5,19,37,73,1289,1487,1559,1667,1847,1973,2099,2297,2459,2477,2549,
%T 2657,2693,2729,2819,2837,2909,2927,2963,3089,3359,3449,3467,3539,
%U 3557,3593,3719,3863,3881,3917,4079,4259,4349,4457,4493,4547,4583,4637,4673,4691,4817
%N Primes with integer arithmetic mean of digits = 5 in base 10.
%H Jaroslav Krizek, <a href="/A285226/b285226.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime@ Range@ PrimePi@ 5000, Mean@ IntegerDigits@ # == 5 &] (* _Michael De Vlieger_, Apr 22 2017 *)
%o (Magma) [n: n in [1..100000] | IsPrime(n) and &+Intseq(n) mod #Intseq(n) eq 0 and &+Intseq(n) / #Intseq(n) eq 5]
%Y Primes from A061388. Subsequence of A069709.
%Y 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).
%K nonn,base
%O 1,1
%A _Jaroslav Krizek_, Apr 19 2017
|
