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 A238668 #6 Jul 26 2014 19:11:33
%S A238668 139,523,563,769,853,1019,1489,1553,1559,1583,1693,1723,1949,2239,
%T A238668 2339,2393,2423,3469,3779,3863,4073,4133,4273,4283,4483,4663,4969,
%U A238668 5233,5503,5683,5869,5953,6269,6299,6473,6569,6959,7229,7309,8233,8513,8573,8839,9749
%N A238668 Primes p such that (p+6)^2+6 is prime but (p+j)^2+j is not prime for all 0<j<6.
%H A238668 Alois P. Heinz, <a href="/A238668/b238668.txt">Table of n, a(n) for n = 1..10000</a>
%t A238668 pnpQ[n_]:=Module[{c=Table[(n+j)^2+j,{j,6}]},NoneTrue[Most[c], PrimeQ] &&PrimeQ[Last[c]]]; Select[Prime[Range[1500]],pnpQ] (* This program uses the function NoneTrue from Mathematica version 10 *) (* _Harvey P. Dale_, Jul 26 2014 *)
%Y A238668 Column k=6 of A238086.
%K A238668 nonn
%O A238668 1,1
%A A238668 _Alois P. Heinz_, Mar 02 2014