OFFSET
1,1
MATHEMATICA
Prime[Select[Range[200], Mod[Prime[ # ], 4] == 3 && Mod[Prime[ # + 1], 4] == 1 &]]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Giovanni Teofilatto, Jan 13 2005
EXTENSIONS
Edited and corrected by Ray Chandler, Jan 19 2005
STATUS
approved