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