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