OFFSET
0,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..3000
MAPLE
A181692 := proc(n) for m from n to 100000 do if isprime(2^m-2^n-1) then return m; end if; end do: return 0 ; end proc:
MATHEMATICA
m[n_]:=Module[{m=n+1}, While[!PrimeQ[2^m-2^n-1], m++]; m]
Table[m[i], {i, 90}] (* Harvey P. Dale, Dec. 18, 2010 *)
PROG
(PARI) for(n=0, 80, for(m=n+1, oo, k=2^m-2^n-1; if(isprime(k), print1(m, ", "); break))) \\ Hugo Pfoertner, Jan 12 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Nov 05 2010
EXTENSIONS
a(12) corrected and sequence extended by R. J. Mathar, Nov 17 2010
STATUS
approved