A096702 Balanced primes of order ten.

5503, 6301, 8233, 14489, 14591, 14747, 15907, 17789, 20543, 22067, 22699, 23321, 24593, 25423, 26251, 26347, 28477, 29059, 33161, 41023, 42337, 44021, 48187, 51551, 53279, 55001, 59693, 64661, 78173, 81457, 82561, 84017, 85621, 88301

Offset: 1

Author

Robert G. Wilson v, Jun 26 2004

Keywords

• nonn

Examples

			5503 is a member because
5503 = (5431 + 5437 + 5441 + 5443 + 5449 + 5471 + 5477 + 5479 + 5483 + 5501 + 5503 + 5507 + 5519 + 5521 + 5527 + 5531 + 5557 + 5563 + 5569 + 5573 + 5581)/21 = 115563/21.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

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

Programs

Mathematica

Transpose[ Select[ Partition[ Prime[ Range[10000]], 21, 1], #[[11]] == (#[[1]] + #[[2]] + #[[3]] + #[[4]] + #[[5]] + #[[6]] + #[[7]] + #[[8]] + #[[9]] + #[[10]] + #[[12]] + #[[13]] + #[[14]] + #[[15]] + #[[16]] + #[[17]] + #[[18]] + #[[19]] + #[[20]] + #[[21]])/20 &]][[11]]
Transpose[Select[Partition[Prime[Range[9000]],21,1],Total[#]/21 == #[[11]]&]][[11]] (* Harvey P. Dale, Mar 09 2014 *)