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