OFFSET
1,1
MATHEMATICA
Prime[Select[Range[200], Mod[Prime[ # ], 4] == 3 && Mod[Prime[ # + 1], 4] == 1 &] + 1]
Transpose[Select[Partition[Prime[Range[200]], 2, 1], And@@IntegerQ/@ {(Last[#]-1)/4, (First[#]-3)/4}&]][[2]] (* Harvey P. Dale, Apr 11 2012 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Giovanni Teofilatto, Jan 13 2005
EXTENSIONS
Edited and corrected by Ray Chandler, Jan 19 2005
STATUS
approved