A139403 - OEIS

%I #13 Apr 30 2020 18:09:10

%S 7,13,43,103,127,181,223,241,283,421,433,733,787,853,1291,1303,1531,

%T 1567,1741,2017,2161,2281,2593,2857,2953,3163,3361,3571,3673,4003,

%U 4051,4441,4513,4597,4663,4831,4903,5503,5647,5923,6067,6091,6217,6361,6427

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

%H Amiram Eldar, <a href="/A139403/b139403.txt">Table of n, a(n) for n = 1..10000</a>

%t a = {}; Do[If[PrimeQ[8 n + 5] && PrimeQ[8 n + 3] && PrimeQ[n],AppendTo[a, n]], {n, 1, 10000}]; a

%t Select[Prime[Range[1000]],AllTrue[8#+{3,5},PrimeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Apr 30 2020 *)

%Y Cf. A125822, A139402, A139404.

%Y Subsequence of prime terms of A124192.

%K nonn

%O 1,1

%A _Artur Jasinski_, Apr 19 2008