OFFSET
1,1
LINKS
R. J. Mathar, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Prime@ Range[10^3], MatchQ[Boole@ PrimeQ@ {# + 2, # + 6, # + 8}, {0, 1, 1}] &] (* Michael De Vlieger, Feb 05 2017 *)
PROG
(PARI) isok(p) = isprime(p) && !isprime(p+2) && isprime(p+6) && isprime(p+8); \\ Michel Marcus, Dec 13 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved