This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A285225 #14 Jun 07 2025 16:42:02 %S A285225 17,53,71,1069,1087,1249,1429,1447,1483,1609,1627,1663,1753,1861,1933, %T A285225 1951,2239,2293,2347,2383,2437,2473,2617,2671,2707,2833,2851,3049, %U A285225 3067,3229,3319,3373,3391,3463,3517,3571,3607,3643,3733,3823,3931,4057,4093,4129 %N A285225 Primes with integer arithmetic mean of digits = 4 in base 10. %H A285225 Jaroslav Krizek, <a href="/A285225/b285225.txt">Table of n, a(n) for n = 1..1000</a> %t A285225 Select[Prime[Range[600]],Mean[IntegerDigits[#]]==4&] (* _Harvey P. Dale_, Jun 11 2024 *) %o A285225 (Magma) [n: n in [1..100000] | IsPrime(n) and &+Intseq(n) mod #Intseq(n) eq 0 and &+Intseq(n) / #Intseq(n) eq 4]; %Y A285225 Primes in A061387. Subsequence of A069709. %Y A285225 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 A285225 nonn,base %O A285225 1,1 %A A285225 _Jaroslav Krizek_, Apr 16 2017