A173876 Primes p such that 3*p+2, 5*p+4 and 7*p+6 are also prime.

5, 83, 419, 479, 1259, 1583, 1949, 2099, 2609, 4049, 4079, 5333, 6359, 6473, 7019, 7523, 7559, 8699, 11933, 14939, 15329, 17573, 21839, 22013, 23633, 24683, 25733, 25763, 26633, 28703, 28979, 29819, 31079, 31139, 32999, 34439, 35129, 38729

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Mathematica

Select[Prime[Range[5000]], PrimeQ[3 # + 2] && PrimeQ[5 # + 4] && PrimeQ[7 # + 6] &] (* Vincenzo Librandi, Apr 10 2013 *)
Select[Prime[Range[5000]], AllTrue[{3#+2, 5#+4, 7#+6}, PrimeQ]&] (* Harvey P. Dale, Jul 14 2022 *)

Prog

(Magma) [p: p in PrimesUpTo(100000) | IsPrime(p) and IsPrime(3*p+2) and IsPrime(5*p+4) and IsPrime(7*p+6)];

Crossrefs

Sequence in context: A142162 A082546 A348790 * A368080 A348791 A250549

Adjacent sequences: A173873 A173874 A173875 * A173877 A173878 A173879

Keyword

nonn,easy

Author

Vincenzo Librandi, Mar 07 2010

Status

approved