login
A046136
Primes p such that p, p+4 and p+10 are primes.
11
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
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
Sequence in context: A154650 A015913 A023200 * A098044 A350591 A252091
KEYWORD
nonn
STATUS
approved