OFFSET
1,1
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Miklos Kristof, Sep 27 2006
STATUS
approved