OFFSET
1,1
MATHEMATICA
Select[ Range[ 0, 5000, 2 ], PrimeQ[ #(2^31 - 1) + 1 ] & ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 08 2000
STATUS
approved