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,1

Links

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

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

Crossrefs

Cf. A125822, A139402, A139404.

Subsequence of prime terms of A124192.

Sequence in context: A224502 A361914 A047977 * A087820 A272032 A023286

Adjacent sequences: A139400 A139401 A139402 * A139404 A139405 A139406

Keyword

nonn

Author

Artur Jasinski, Apr 19 2008

Status

approved