|
%I #6 Nov 21 2013 12:49:00
%S 3,7,11,19,31,43,59,71,103,107,139,151,179,191,199,227,239,271,283,
%T 311,347,419,431,463,523,571,599,619,643,659,811,823,827,859,883,1019,
%U 1031,1051,1063,1091,1151,1231,1279,1291,1303,1319,1427,1451,1483,1487,1607
%N Twin primes of form 4k+3.
%p i:=1:for k from 1 to 3000 do if isprime(k) and isprime(k+2) then b:=k:c:=k+2: if b mod 4 = 3 then a[i]:=b:i:=i+1 fi: if c mod 4 = 3 then a[i]:=c:i:=i+1 fi:fi od: seq(a[n],n=1..i-1);
%t Select[Flatten[Select[Partition[Prime[Range[260]],2,1],Last[#]-First[#] == 2&]], IntegerQ[(#-3)/4]&] (* _Harvey P. Dale_, Apr 20 2011 *)
%Y Cf. A122564, A122565, A001097.
%K nonn
%O 1,1
%A _Miklos Kristof_, Sep 27 2006
|
