A096704 Balanced primes of order twelve.

157, 173, 709, 827, 1999, 2689, 6803, 11351, 11489, 12757, 15277, 33071, 37967, 38449, 46751, 47303, 51599, 53113, 56779, 57269, 59107, 62731, 62743, 62791, 63649, 77023, 79357, 81553, 81649, 81953, 85621, 96377, 108139, 113983, 117839

Offset: 1

Author

Robert G. Wilson v, Jun 26 2004

Keywords

• nonn

Examples

			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.
		

Links

• Muniru A Asiru, Table of n, a(n) for n = 1..5000

Crossrefs

Cf. A096693, A006562, A082077, A082078, A082079, A096697, A096698, A096699, A096700, A096701, A096702, A096703.

Programs

GAP

P:=Filtered([1..150000],IsPrime);;
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

Mathematica

Select[Partition[Prime[Range[12000]],25,1],Mean[#]==#[[13]]&][[All,13]] (* Harvey P. Dale, Jun 28 2020 *)