%I #10 Jun 11 2024 12:41:06
%S 17,53,71,1069,1087,1249,1429,1447,1483,1609,1627,1663,1753,1861,1933,
%T 1951,2239,2293,2347,2383,2437,2473,2617,2671,2707,2833,2851,3049,
%U 3067,3229,3319,3373,3391,3463,3517,3571,3607,3643,3733,3823,3931,4057,4093,4129
%N Primes with integer arithmetic mean of digits = 4 in base 10.
%H Jaroslav Krizek, <a href="/A285225/b285225.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[600]],Mean[IntegerDigits[#]]==4&] (* _Harvey P. Dale_, Jun 11 2024 *)
%o (Magma) [n: n in [1..100000] | IsPrime(n) and &+Intseq(n) mod #Intseq(n) eq 0 and &+Intseq(n) / #Intseq(n) eq 4]
%Y Primes in A061387. 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), this sequence (k = 4), A285226 (k = 5), A285227 (k = 7), A285228 (k = 8).
%K nonn,base
%O 1,1
%A _Jaroslav Krizek_, Apr 16 2017