A096705 Balanced primes of index 1.

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

Offset

1,1

Links

Robert Price, Table of n, a(n) for n = 1..4957

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: A289836 A068829 A090403 * A023258 A030554 A017581

Adjacent sequences: A096702 A096703 A096704 * A096706 A096707 A096708

Keyword

nonn

Author

Robert G. Wilson v, Jun 28 2004

Status

approved