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

Author

Eric W. Weisstein

Keywords

• nonn

Links

• R. J. Mathar, Table of n, a(n) for n = 1..3766
• Eric Weisstein's World of Mathematics, Prime Triplet.

Crossrefs

Cf. A023202, A046133.

Programs

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

PARI

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