|
|
A238668
|
|
Primes p such that (p+6)^2+6 is prime but (p+j)^2+j is not prime for all 0<j<6.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|