OFFSET
1,1
COMMENTS
Subsequence of A078847. - R. J. Mathar, Feb 10 2013
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
Eric Weisstein's World of Mathematics, Prime Triplet.
EXAMPLE
227 is in the sequence since 227, 229, 233, 239 and 241 are consecutive primes.
MATHEMATICA
Rest@ Select[Prime@ Range@ 36000, AllTrue[{2, 6, 12, 14} + #, PrimeQ] &] (* Michael De Vlieger, Apr 18 2015, Version 10 *)
Select[Partition[Prime[Range[36000]], 5, 1], Differences[#]=={2, 4, 6, 2}&][[All, 1]] (* Harvey P. Dale, Jun 14 2022 *)
PROG
(PARI) isok(p) = isprime(p) && (nextprime(p+1)==p+2) && (nextprime(p+3)== p+6) && (nextprime(p+7)==p+12) && (nextprime(p+13)==p+14); \\ Michel Marcus, Dec 10 2013
(Magma) [p: p in PrimesInInterval(7, 1000000) | forall{i: i in [2, 6, 12, 14] | IsPrime(p+i)}]; // Vincenzo Librandi, Apr 19 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Dec 19 2002
EXTENSIONS
Edited by Dean Hickerson, Dec 20 2002
STATUS
approved