This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A096709 #4 Mar 30 2012 17:34:55
%S A096709 173,124991,232607,491423,701489,1356337,2455681,3128803,5218607,
%T A096709 9459683,10563461,13228247,14606029,16282921,18216137,20378273,
%U A096709 21622201,35201909,36549169,38638969,39246689,42074017,43048039,48961859
%N A096709 Balanced primes (A090403) of index 5.
%e A096709 124991 is a member because 124991 = (124673 + ... + 125329)/59
%e A096709 = (124543 + ... + 125423)/75 = (124193 + ... + 125777)/137 = (124133 + ... + 125887)/151
%e A096709 = (123931 + ... + 126031)/181.
%t A096709 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 A096709 Cf. A096693, A096695, A096705, A096706, A096707, A096708.
%K A096709 nonn
%O A096709 1,1
%A A096709 _Robert G. Wilson v_, Jun 28 2004
%E A096709 a(6)-a(24) from _Donovan Johnson_, Apr 09 2010