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 A167597 #10 Jan 18 2016 16:48:28 %S A167597 12,18,30,42,60,138,198,240,462,600,618,810,828,882,1230,1290,1320, %T A167597 1428,1482,1620,1668,1722,1878,2088,2112,2688,2970,3330,3390,3768, %U A167597 4002,4092,4242,4260,4482,4518,5100,5280,5418,5502,5520,5652,6090,6198,6300,6450 %N A167597 The isolated nonprimes that are the sum of two successive primes. %H A167597 Robert Israel, <a href="/A167597/b167597.txt">Table of n, a(n) for n = 1..10000</a> %F A167597 A001043 INTERSECT A014574. [_R. J. Mathar_, May 30 2010] %p A167597 N:= 10000: # to get all terms <= N %p A167597 Primes:= select(isprime, [seq(i,i=3..N+1,2)]): %p A167597 A001043:= convert(Primes[1..-2] + Primes[2..-1],set): %p A167597 Primes:= convert(Primes,set): %p A167597 A:= map(`+`,Primes intersect map(`-`,Primes,2),1) intersect A001043: %p A167597 sort(convert(A,list)); # _Robert Israel_, Jan 18 2016 %Y A167597 Cf. A001043, A001097. %K A167597 nonn %O A167597 1,1 %A A167597 _Juri-Stepan Gerasimov_, Nov 07 2009 %E A167597 Corrected (60 inserted, 178 replaced by 198, 462 inserted....) by _R. J. Mathar_, May 30 2010