The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A096702 Balanced primes of order ten. 16
 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 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Harvey P. Dale, Table of n, a(n) for n = 1..1000 EXAMPLE 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. MAPLE P:=proc(q) local n; for n from 11 to q do if add(ithprime(n-k), k=-10..10)=21*ithprime(n) then print(ithprime(n)); fi; od; end: P(10^6); # Paolo P. Lava, Mar 17 2014 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 *) CROSSREFS Cf. A096693, A006562, A082077, A082078, A082079, A096697, A096698, A096699, A096700, A096701, A096703, A096704. Sequence in context: A247924 A031617 A045132 * A252621 A234561 A252511 Adjacent sequences:  A096699 A096700 A096701 * A096703 A096704 A096705 KEYWORD nonn AUTHOR Robert G. Wilson v, Jun 26 2004 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified February 23 06:50 EST 2020. Contains 332159 sequences. (Running on oeis4.)