A123080 Twin primes of form 4k+3.

3, 7, 11, 19, 31, 43, 59, 71, 103, 107, 139, 151, 179, 191, 199, 227, 239, 271, 283, 311, 347, 419, 431, 463, 523, 571, 599, 619, 643, 659, 811, 823, 827, 859, 883, 1019, 1031, 1051, 1063, 1091, 1151, 1231, 1279, 1291, 1303, 1319, 1427, 1451, 1483, 1487, 1607

Offset: 1

Author

Miklos Kristof, Sep 27 2006

Keywords

• nonn

Crossrefs

Cf. A122564, A122565, A001097.

Programs

Maple

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);

Mathematica

Select[Flatten[Select[Partition[Prime[Range[260]],2,1],Last[#]-First[#] == 2&]], IntegerQ[(#-3)/4]&]  (* Harvey P. Dale, Apr 20 2011 *)