OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..18
FORMULA
MAPLE
a:= n-> nextprime(numtheory[mersenne]([n])):
seq(a(n), n=1..12); # Alois P. Heinz, Oct 30 2024
MATHEMATICA
Table[NextPrime[2^MersennePrimeExponent[n] - 1], {n, 1, 12}] (* Amiram Eldar, Aug 10 2024 *)
CROSSREFS
KEYWORD
nonn,hard,changed
AUTHOR
Labos Elemer, Aug 26 2002
STATUS
approved