OFFSET
1,2
COMMENTS
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[n = 2*n - 1; k = 0; While[! PrimeQ[n*2^k - 1] && ! PrimeQ[n*2^k + 1], k++]; If[k > l, l = k; n, {}], {n, 10^5}]] (* Arkadiusz Wesolowski, Sep 04 2011 *)
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Arkadiusz Wesolowski, Aug 31 2011
EXTENSIONS
a(22) was found in 2002 by Wilfrid Keller.
Definition corrected by Max Alekseyev and Farideh Firoozbakht, Oct 16 2014
STATUS
approved