%I #22 Jan 22 2020 06:13:50
%S 5,7,17,19,29,31,41,43,101,103,137,139,149,151,197,199,269,271,281,
%T 283,461,463,521,523,569,571,617,619,641,643,809,811,821,823,857,859,
%U 881,883,1049,1051,1061,1063,1229,1231,1277,1279,1289,1291,1301,1303,1481
%N Twin primes of form 4k+1, 4k+3.
%C Twin primes with Hamming distance 1 between them. - _Vladimir Shevelev_, Jan 29 2012
%H Amiram Eldar, <a href="/A122565/b122565.txt">Table of n, a(n) for n = 1..10000</a>
%e a(3) = 17 = 4*4 + 1, a(4) = 19 = 4*4 + 3.
%p i:=1:for k from 1 to 600 do if isprime(4*k+1) and isprime(4*k+3) then a[i]:=4*k+1:a[i+1]:=4*k+3: i:=i+2 fi od: seq(a[n],n=1..i-1);
%t Flatten[Select[Table[4k+{1,3},{k,400}],And@@PrimeQ[#] &]] (* _Jayanta Basu_, May 26 2013 *)
%Y Cf. A001097, A123986, A205649.
%K nonn
%O 1,1
%A _Miklos Kristof_, Sep 21 2006
|