|
%I #9 Feb 16 2024 10:05:12
%S 5503,6301,8233,14489,14591,14747,15907,17789,20543,22067,22699,23321,
%T 24593,25423,26251,26347,28477,29059,33161,41023,42337,44021,48187,
%U 51551,53279,55001,59693,64661,78173,81457,82561,84017,85621,88301
%N Balanced primes of order ten.
%H Harvey P. Dale, <a href="/A096702/b096702.txt">Table of n, a(n) for n = 1..1000</a>
%e 5503 is a member because
%e 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.
%t 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]]
%t Transpose[Select[Partition[Prime[Range[9000]],21,1],Total[#]/21 == #[[11]]&]][[11]] (* _Harvey P. Dale_, Mar 09 2014 *)
%Y Cf. A096693, A006562, A082077, A082078, A082079, A096697, A096698, A096699, A096700, A096701, A096703, A096704.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Jun 26 2004
|
