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 A114267 #8 May 01 2013 21:02:09
%S A114267 1,11,4,12,19,13,34,31,36,42,62,59,142,158,247,173,240,273,204,417,
%T A114267 231,669,172,348,965,1003,115,1369,370,1244,1251,1373,983,1109,2489,
%U A114267 1028,2583,1506,6506,6773,7762,5525,2463,6534,6451,3587,4944,3119,3178,4880
%N A114267 a(n) = smallest k such that A114266(k) = n.
%C A114267 Inverse sequence to A114266.
%t A114267 Do[n[k] = 0, {k, 1, 2000}]; ct = 0; nm = 0; n2 = 0; n1 = 1; p1 = 2; While[ct < 200, n2 = 1; p2 = Prime[n1 + n2]; While[cp = 2*p1 + p2; ! PrimeQ[cp], n2++; p2 = Prime[n1 + n2]]; If[n[n2] == 0, n[ n2] = n1; If[n2 > nm, nm = n2]; If[n2 <= 200, ct++ ]; Print[Table[n[k], {k, 1, nm}]]]; n1++; p1 = Prime[n1]]
%Y A114267 Cf. A114227, A114230, A073703, A114235, A114262, A114265, A114229, A114232, A114234, A114237, A114264, A114266.
%K A114267 nonn
%O A114267 1,2
%A A114267 _Lei Zhou_, Nov 20 2005
%E A114267 I clarified the definition. - _N. J. A. Sloane_, Jan 08 2011