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