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

Author

Eric W. Weisstein

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000
• Eric Weisstein's World of Mathematics, Prime Triplet.

Crossrefs

Cf. A023200, A023203.

Programs

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 *)

PARI

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

Formula

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