OFFSET

1,3

COMMENTS

MATHEMATICA

k = -1; n = 0; km = k; While[k < 8192, n++; k = 0; cp = n*(2^ k) + 1; While[(! PrimeQ[cp]) && (k < 8192), k++; cp = n*(2^k) + 1]; If[k > km, km = k; Print[{n, km}]]]

CROSSREFS

KEYWORD

nonn,more

AUTHOR

Lei Zhou, Feb 24 2005

EXTENSIONS

Extended by T. D. Noe, Nov 15 2010

a(13) was found by PrimeGrid, added by Richard N. Smith, Jul 15 2019

STATUS

approved