A139403 Prime numbers k such that 8*k+3 and 8*k+5 are also primes.

7, 13, 43, 103, 127, 181, 223, 241, 283, 421, 433, 733, 787, 853, 1291, 1303, 1531, 1567, 1741, 2017, 2161, 2281, 2593, 2857, 2953, 3163, 3361, 3571, 3673, 4003, 4051, 4441, 4513, 4597, 4663, 4831, 4903, 5503, 5647, 5923, 6067, 6091, 6217, 6361, 6427

Offset: 1

Author

Artur Jasinski, Apr 19 2008

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A125822, A139402, A139404.

Subsequence of prime terms of A124192.

Programs

Mathematica

a = {}; Do[If[PrimeQ[8 n + 5] && PrimeQ[8 n + 3] && PrimeQ[n],AppendTo[a, n]], {n, 1, 10000}]; a
Select[Prime[Range[1000]],AllTrue[8#+{3,5},PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 30 2020 *)