OFFSET
1,1
COMMENTS
If they exist, a(26) > 31373, a(27) > 419, a(28) > 87.
MATHEMATICA
Table[k=1; Monitor[Parallelize[While[True, If[PrimeQ[k*(2^MersennePrimeExponent[n]-1)*(2^(MersennePrimeExponent[n+2])-1)+1], Break[]]; k++]; k], k], {n, 1, 25}]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
J.W.L. (Jan) Eerland, Aug 19 2023
STATUS
approved