|
Search: id:A096705
|
|
|
| A096705 |
|
Balanced primes of index 1. |
|
+0
7
|
|
| 5, 17, 29, 37, 71, 79, 89, 137, 149, 151, 179, 193, 227, 229, 257, 281, 359, 373, 383, 419, 421, 433, 487, 491, 563, 577, 593, 631, 643, 653, 659, 677, 701, 733, 757, 823, 877, 947, 953, 983, 991, 1013, 1021, 1087, 1091, 1103, 1123, 1171, 1193, 1217, 1223
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
17 is a member because 17 = (7 + 11 + 13 + 17 + 19 + 23 + 29)/7 only.
|
|
MATHEMATICA
|
g[n_] := Block[{c = 0, k = 1, p = Prime[n], s = Plus @@ Table[ Prime[i], {i, n - 1, n + 1}]}, While[k != n - 1, If[s == (2k + 1)p, c++ ]; k++; s = s + Prime[n - k] + Prime[n + k]]; c]; Prime[ Select[ Range[2, 250], f[ # ] == 1 &]]
|
|
CROSSREFS
|
Cf. A096693, A096695, A096706, A096707, A096708, A096709.
Sequence in context: A018447 A068829 A090403 this_sequence A023258 A030554 A017581
Adjacent sequences: A096702 A096703 A096704 this_sequence A096706 A096707 A096708
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 28 2004
|
|
|
Search completed in 0.002 seconds
|
