|
%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
|
