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 A126204 #12 Oct 31 2013 12:09:44
%S A126204 2,5,11,17,37,53,89,71,101,179,137,193,233,257,251,401,311,373,347,
%T A126204 457,661,479,547,599,617,641,683,907,881,773,827,809,941,1033,977,
%U A126204 1289,1201,1187,1229,1223,1277,1361,1597,1493,1447,1499,1451,1549,1487,1709,1933
%N A126204 Least prime representable as the arithmetic mean of two other primes in n different ways.
%C A126204 a(n)=A000040(A137700(n)); A071681(A137700(n))=n and A071681(m)<>n for m < A137700(n). - _Reinhard Zumkeller_, Feb 07 2008
%H A126204 Robert G. Wilson v, <a href="/A126204/b126204.txt">Table of n, a(n) for n = 0..11300</a>
%t A126204 f[n_] := Block[{c = 0, k = PrimePi@n - 1}, While[k > 0, If[ PrimeQ[2n - Prime@k], c++ ]; k-- ]; c]; t = Table[0, {1000}]; Do[ p = Prime@n; a = f@p; If[a < 1001 && t[[a]] == 0, t[[a]] = p; Print[{a, p}]], {n, 8900}]
%Y A126204 Cf. A071681.
%K A126204 nonn
%O A126204 0,1
%A A126204 _Robert G. Wilson v_, Mar 22 2007
%E A126204 Start of b-file modified to match sequence by _N. J. A. Sloane_, Aug 31 2009