%I #15 Feb 16 2024 10:05:59

%S 157,173,709,827,1999,2689,6803,11351,11489,12757,15277,33071,37967,

%T 38449,46751,47303,51599,53113,56779,57269,59107,62731,62743,62791,

%U 63649,77023,79357,81553,81649,81953,85621,96377,108139,113983,117839

%N Balanced primes of order twelve.

%H Muniru A Asiru, <a href="/A096704/b096704.txt">Table of n, a(n) for n = 1..5000</a>

%e 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 Select[Partition[Prime[Range[12000]],25,1],Mean[#]==#[[13]]&][[All,13]] (* _Harvey P. Dale_, Jun 28 2020 *)

%o (GAP) P:=Filtered([1..150000],IsPrime);;

%o 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 Cf. A096693, A006562, A082077, A082078, A082079, A096697, A096698, A096699, A096700, A096701, A096702, A096703.

%K nonn

%O 1,1

%A _Robert G. Wilson v_, Jun 26 2004