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

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,1

Links

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

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

Crossrefs

Column k=6 of A238086.

Sequence in context: A142563 A142213 A142137 * A001163 A276263 A140791

Adjacent sequences: A238665 A238666 A238667 * A238669 A238670 A238671

Keyword

nonn

Author

Alois P. Heinz, Mar 02 2014

Status

approved