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,1

Links

Table of n, a(n) for n=1..24.

Example

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

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

Crossrefs

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

Sequence in context: A185707 A185701 A138267 * A180417 A351375 A160660

Adjacent sequences: A096706 A096707 A096708 * A096710 A096711 A096712

Keyword

nonn

Author

Robert G. Wilson v, Jun 28 2004

Extensions

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

Status

approved