OFFSET
1,1
MATHEMATICA
Select[ Prime@ Range@ 1000, Mod[#, 8] == 1 && PrimeQ[# + 2] &]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Jan 22 2012
STATUS
approved