A046141 p, p+8 and p+12 are primes.

5, 11, 29, 59, 71, 89, 101, 269, 389, 431, 449, 479, 491, 761, 929, 1289, 1439, 1481, 1559, 1571, 1601, 2129, 2339, 2381, 2531, 2609, 2699, 2741, 2789, 3011, 3209, 3449, 3911, 4721, 5471, 5519, 5639, 5849, 6569, 6899, 6959

Offset

1,1

Links

R. J. Mathar, Table of n, a(n) for n = 1..3766

Eric Weisstein's World of Mathematics, Prime Triplet.

Mathematica

Select[Range@ 7000, AllTrue[{#, # + 8, # + 12}, PrimeQ] &] (* Michael De Vlieger, Jul 24 2015, Version 10 *)
Select[Prime[Range[1000]], AllTrue[#+{8, 12}, PrimeQ]&] (* Harvey P. Dale, Oct 07 2023 *)

Prog

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

Crossrefs

Sequence in context: A062772 A319597 A030080 * A233540 A107135 A036062

Adjacent sequences: A046138 A046139 A046140 * A046142 A046143 A046144

Keyword

nonn

Author

Eric W. Weisstein

Status

approved