OFFSET
1,3
COMMENTS
Indices of records are given by A217892.
REFERENCES
Wilfrid Keller, personal communication, 2010.
LINKS
Chris K. Caldwell, The List of Largest Known Primes, 1355477231 * 2^356981 + 1
Carlos Rivera, Problem 30
MATHEMATICA
l = -1; Flatten[Table[k = 0; While[! PrimeQ[n*2^k - 1] && ! PrimeQ[n*2^k + 1], k++]; If[k > l, l = k, {}], {n, 10^5}]] (* Arkadiusz Wesolowski, Sep 04 2011 *)
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Arkadiusz Wesolowski, Aug 30 2011
EXTENSIONS
a(23)=A194637(22) from Wilfrid Keller, added by Max Alekseyev, Oct 18 2014
STATUS
approved