A096703 Balanced primes of order eleven.

173, 353, 631, 827, 3329, 4723, 13693, 17789, 20947, 21059, 21503, 23563, 23599, 27751, 29759, 35419, 36781, 37991, 44939, 52021, 57163, 57269, 57719, 59663, 68713, 70529, 70879, 71399, 75541, 76949, 78301, 79621, 94399, 101929, 104759

Offset

1,1

Links

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

Example

173 is a member because 173 = (109 + 113 + 127 + 131 + 137 + 139 + 149 + 151 + 157 + 163 + 167 + 173 + 179 + 181 + 191 + 193 + 197 + 199 + 211 + 223 + 227 + 229 + 233)/23 = 3979/23.

Mathematica

Transpose[ Select[ Partition[ Prime[ Range[10000]], 23, 1], #[[12]] == (#[[1]] + #[[2]] + #[[3]] + #[[4]] + #[[5]] + #[[6]] + #[[7]] + #[[8]] + #[[9]] + #[[10]] + #[[11]] + #[[13]] + #[[14]] + #[[15]] + #[[16]] + #[[17]] + #[[18]] + #[[19]] + #[[20]] + #[[21]] + #[[22]] + #[[23]])/22 &]][[12]]
Transpose[Select[Partition[Prime[Range[11000]], 23, 1], Mean[#] == #[[12]]&]][[12]] (* Harvey P. Dale, Nov 06 2011 *)

Prog

(GAP) P:=Filtered([1..150000], IsPrime);;
a:=List(Filtered(List([0..12000], k->List([1..23], j->P[j+k])), i->Sum(i)/23=i[12]), m->m[12]); # Muniru A Asiru, Mar 04 2018

Crossrefs

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

Sequence in context: A343449 A142004 A047986 * A060332 A142022 A130338

Adjacent sequences: A096700 A096701 A096702 * A096704 A096705 A096706

Keyword

nonn

Author

Robert G. Wilson v, Jun 26 2004

Status

approved