OFFSET
1,2
MATHEMATICA
a = -1; Do[m = 0; While[ !PrimeQ[n*2^m + 1], m++ ]; If[m > a, a = m; Print[n]], {n, 1, 10^3} ]
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Robert G. Wilson v, Oct 16 2001
EXTENSIONS
Corrected and extended by T. D. Noe, Nov 15 2010
a(13) was found by PrimeGrid, added by Arkadiusz Wesolowski, Feb 13 2017
STATUS
approved