A096709 Balanced primes (A090403) of index 5.

173, 124991, 232607, 491423, 701489, 1356337, 2455681, 3128803, 5218607, 9459683, 10563461, 13228247, 14606029, 16282921, 18216137, 20378273, 21622201, 35201909, 36549169, 38638969, 39246689, 42074017, 43048039, 48961859

Offset: 1

Author

Robert G. Wilson v, Jun 28 2004

Keywords

• nonn

Examples

			124991 is a member because 124991 = (124673 + ... + 125329)/59
= (124543 + ... + 125423)/75 = (124193 + ... + 125777)/137 = (124133 + ... + 125887)/151
= (123931 + ... + 126031)/181.
		

Crossrefs

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

Programs

Mathematica

f[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, 25797], f[ # ] == 5 &]]

Extensions

a(6)-a(24) from Donovan Johnson, Apr 09 2010