A078946 Primes p such that p, p+2, p+6, p+12 and p+14 are consecutive primes.

17, 227, 1277, 1607, 3527, 3917, 4637, 4787, 27737, 38447, 39227, 44267, 71327, 97367, 99707, 113147, 122027, 122387, 124337, 165707, 183497, 187127, 191447, 197957, 198827, 275447, 290657, 312197, 317957, 347057, 349397, 416387, 418337

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

Subsequence of A128468.

Cf. A001223, A078866, A078867, A078947-A078971, A022006, A022007.

Sequence in context: A296999 A140842 A087608 * A164600 A187636 A152588

Adjacent sequences: A078943 A078944 A078945 * A078947 A078948 A078949

Keyword

nonn

Author

Labos Elemer, Dec 19 2002

Extensions

Edited by Dean Hickerson, Dec 20 2002

Status

approved