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
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
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 *)