P <- Primes(32)
M <- c()
for (p in P)
if (mersenne(p)) M <- c(M, p)
# Next Mersenne numpers with primes are 521 and 607 (below 1200)
M # 2 3 5 7 13 17 19 31 61 89 107 127
gmp::as.bigz(2)^M - 1 # 3 7 31 127 8191 131071 ...
Run the code above in your browser using DataLab