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 A096694 #2 Mar 30 2012 17:31:04
%S A096694 149,227,419,1997,3329,3671,5501,6449,13691,15887,21647,22481,26711,
%T A096694 27749,31247,32411,32831,37547,39227,41759,44027,47777,49121,50261,
%U A096694 53231,54539,54917,55217,64877,69149,71411,74717,90821,93239,107069
%N A096694 Lesser of twin balanced primes (A090403).
%t A096694 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, c++ ]; k++; s = s + Prime[n - k] + Prime[n + k]]; c]; p = Prime[ Select[ Range[2, 22456], f[ # ] != 0 &]]; Transpose[ Select[ Partition[p, 2, 1], #[[1]] + 2 == #[[2]] &]][[1]]
%Y A096694 Cf. A090403.
%K A096694 nonn
%O A096694 1,1
%A A096694 _Robert G. Wilson v_, Jun 28 2004