login
A096704
Balanced primes of order twelve.
17
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,1
LINKS
EXAMPLE
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.
MATHEMATICA
Select[Partition[Prime[Range[12000]], 25, 1], Mean[#]==#[[13]]&][[All, 13]] (* Harvey P. Dale, Jun 28 2020 *)
PROG
(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
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 26 2004
STATUS
approved