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 A096704 #15 Feb 16 2024 10:05:59 %S A096704 157,173,709,827,1999,2689,6803,11351,11489,12757,15277,33071,37967, %T A096704 38449,46751,47303,51599,53113,56779,57269,59107,62731,62743,62791, %U A096704 63649,77023,79357,81553,81649,81953,85621,96377,108139,113983,117839 %N A096704 Balanced primes of order twelve. %H A096704 Muniru A Asiru, <a href="/A096704/b096704.txt">Table of n, a(n) for n = 1..5000</a> %e A096704 157 is a term because 157 = (97 + 101 + 103 + 107 + 109 + 113 + 127 + 131 + 137 + 139 + 149 + 151 + 157 + 163 + 167 + 173 + 179 + 181 + 191 + 193 + 197 + 199 + 211 + 223 + 227)/25 = 3925/25. %t A096704 Select[Partition[Prime[Range[12000]],25,1],Mean[#]==#[[13]]&][[All,13]] (* _Harvey P. Dale_, Jun 28 2020 *) %o A096704 (GAP) P:=Filtered([1..150000],IsPrime);; %o A096704 a:=List(Filtered(List([0..12000],k->List([1..25],j->P[j+k])),i->Sum(i)/25=i[13]),m->m[13]); # _Muniru A Asiru_, Mar 04 2018 %Y A096704 Cf. A096693, A006562, A082077, A082078, A082079, A096697, A096698, A096699, A096700, A096701, A096702, A096703. %K A096704 nonn %O A096704 1,1 %A A096704 _Robert G. Wilson v_, Jun 26 2004