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,1

Links

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

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

Crossrefs

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

Sequence in context: A090851 A045230 A180551 * A178091 A178092 A140035

Adjacent sequences: A096701 A096702 A096703 * A096705 A096706 A096707

Keyword

nonn

Author

Robert G. Wilson v, Jun 26 2004

Status

approved