%I #6 Jul 26 2014 19:11:33
%S 139,523,563,769,853,1019,1489,1553,1559,1583,1693,1723,1949,2239,
%T 2339,2393,2423,3469,3779,3863,4073,4133,4273,4283,4483,4663,4969,
%U 5233,5503,5683,5869,5953,6269,6299,6473,6569,6959,7229,7309,8233,8513,8573,8839,9749
%N Primes p such that (p+6)^2+6 is prime but (p+j)^2+j is not prime for all 0<j<6.
%H Alois P. Heinz, <a href="/A238668/b238668.txt">Table of n, a(n) for n = 1..10000</a>
%t 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 Column k=6 of A238086.
%K nonn
%O 1,1
%A _Alois P. Heinz_, Mar 02 2014