OFFSET
1,2
MATHEMATICA
Select[Range[6! ], PrimeQ[2310*#-1]&&PrimeQ[2310*#+1]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 08 2010
STATUS
approved