A096709 - OEIS

%I #4 Mar 30 2012 17:34:55

%S 173,124991,232607,491423,701489,1356337,2455681,3128803,5218607,

%T 9459683,10563461,13228247,14606029,16282921,18216137,20378273,

%U 21622201,35201909,36549169,38638969,39246689,42074017,43048039,48961859

%N Balanced primes (A090403) of index 5.

%e 124991 is a member because 124991 = (124673 + ... + 125329)/59

%e = (124543 + ... + 125423)/75 = (124193 + ... + 125777)/137 = (124133 + ... + 125887)/151

%e = (123931 + ... + 126031)/181.

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

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

%K nonn

%O 1,1

%A _Robert G. Wilson v_, Jun 28 2004

%E a(6)-a(24) from _Donovan Johnson_, Apr 09 2010