A238668 Primes p such that (p+6)^2+6 is prime but (p+j)^2+j is not prime for all 0

139, 523, 563, 769, 853, 1019, 1489, 1553, 1559, 1583, 1693, 1723, 1949, 2239, 2339, 2393, 2423, 3469, 3779, 3863, 4073, 4133, 4273, 4283, 4483, 4663, 4969, 5233, 5503, 5683, 5869, 5953, 6269, 6299, 6473, 6569, 6959, 7229, 7309, 8233, 8513, 8573, 8839, 9749

Offset: 1

Author

Alois P. Heinz, Mar 02 2014

Keywords

• nonn

Links

• Alois P. Heinz, Table of n, a(n) for n = 1..10000

Crossrefs

Column k=6 of A238086.

Programs

Mathematica

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 *)