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 A096711 #6 Mar 13 2015 00:57:06
%S A096711 1,8,57,308,1989,13161,94939
%N A096711 Number of balanced primes (A090403) less than 10^n.
%C A096711 The average number of balanced primes, p_n, seems to reach a maximum at the 85th prime, 439, of 32 balanced primes.
%C A096711 A096711(n)/A006880(n) begins 25%, 32%, 33.93%, 25.06%, 20.74%
%t A096711 f[n_] := 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, Return[1]]; k++; s = s + Prime[n - k] + Prime[n + k]]; 0]; f[1] = 0; Do[ f[n], {n, 10000}]; s = Prime[ Select[ Range[ 10000], f[ # ] == 1 &]]; Table[ Length[ Select[s, # < 10^n &]], {n, 5}]
%Y A096711 Cf. A090403.
%K A096711 nonn
%O A096711 1,2
%A A096711 _Robert G. Wilson v_, Jul 03 2004
%E A096711 a(6)-a(7) from _Donovan Johnson_, Apr 09 2010