A046136 Primes p such that p, p+4 and p+10 are primes.

3, 7, 13, 19, 37, 43, 79, 97, 103, 127, 163, 223, 229, 307, 349, 379, 439, 457, 499, 643, 673, 853, 877, 937, 967, 1009, 1087, 1093, 1213, 1279, 1297, 1423, 1429, 1483, 1489, 1549, 1597, 1609, 1867, 1993, 2203, 2347, 2389, 2437, 2539, 2683, 2689, 2833, 2953

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Eric Weisstein's World of Mathematics, Prime Triplet.

Formula

A023200 INTERSECT A023203. - R. J. Mathar, Jan 23 2009

Maple

q:= p-> andmap(isprime, [p, p+4, p+10]):
select(q, [$2..3000])[];  # Alois P. Heinz, Feb 23 2020

Mathematica

Select[Range@ 2820, AllTrue[{#, # + 4, # + 10}, PrimeQ] &] (* Michael De Vlieger, Jul 24 2015, Version 10 *)

Prog

(PARI) lista(nn) = forprime(p=2, nn, if (isprime(p+4) && isprime(p+10), print1(p, ", "))); \\ Michel Marcus, Jul 24 2015

Crossrefs

Cf. A023200, A023203.

Sequence in context: A154650 A015913 A023200 * A098044 A350591 A252091

Adjacent sequences: A046133 A046134 A046135 * A046137 A046138 A046139

Keyword

nonn

Author

Eric W. Weisstein

Status

approved