|
%I #29 Mar 23 2023 04:41:37
%S 5,13,61,73,109,181,193,229,241,313,349,421,433,601,661,829,1021,1033,
%T 1093,1153,1321,1429,1453,1489,1609,1621,1669,1789,1873,1933,2029,
%U 2089,2113,2269,2341,2593,2689,2713,3001,3121,3169,3253,3301
%N Greater members of twin prime pairs of form (4*k+3, 4*k+5), k >= 0.
%C Corresponding lesser members: A071698(n).
%H Reinhard Zumkeller, <a href="/A071699/b071699.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = 2*A241557(n+1) + 1. - _Hilko Koning_, Nov 06 2019
%t #+2&/@Select[4Range[0,850]+3,PrimeQ[#]&&PrimeQ[#+2]&] (* _Harvey P. Dale_, Aug 24 2011 *)
%o (Haskell)
%o a071699 n = a071699_list !! (n-1)
%o a071699_list = [x | x <- [5, 9 ..], a010051' x == 1, a010051' (x-2) == 1]
%o -- _Reinhard Zumkeller_, Aug 05 2014
%o (Magma) [4*(k+1)+1:k in [0..1000]|IsPrime(4*k+3) and IsPrime(4*k+5)]; // _Marius A. Burtea_, Nov 06 2019
%Y Cf. A071696, A071698, A071700.
%Y Cf. A010051, subsequence of A016813.
%Y Intersection of A006512 and A002144.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Jun 04 2002
|
