OFFSET
1,1
MATHEMATICA
Select[Prime[Range[41000]], AllTrue[{#+2, #(#+2)+12, #(#+2)+14}, PrimeQ]&] (* Harvey P. Dale, Aug 01 2021 *)
PROG
(PARI) isok(n) = isprime(n) && isprime(n+2) && isprime(n*(n+2)+12) && isprime(n*(n+2)+14); \\ Michel Marcus, Aug 09 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Ray G. Opao, Jul 06 2007
EXTENSIONS
More terms from Michel Marcus, Aug 09 2013
STATUS
approved