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

Author

Robert G. Wilson v, Jun 28 2004

Keywords

• nonn

Examples

			17 is a member because 17 = (7 + 11 + 13 + 17 + 19 + 23 + 29)/7 only.
		

Links

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

Crossrefs

Cf. A096693, A096695, A096706, A096707, A096708, A096709.

Programs

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 &]]