A073715 Prime preceding n-th Mersenne-prime. PrevPrime[n-th Mersenne prime]=PrevPrime[A000668].

2, 5, 29, 113, 8179, 131063, 524269, 2147483629, 2305843009213693921, 618970019642690137449562091, 162259276829213363391578010287957, 170141183460469231731687303715884105703

Offset

1,1

Links

Table of n, a(n) for n=1..12.

Formula

a(n)=Prime[PrimePi[M(n)]-1]=Prime[PrimePi[A000668(n)]-1]

Mathematica

NextPrime[Select[2^Prime[Range[50]] - 1, PrimeQ], -1] (* Jayanta Basu, Jul 08 2013 *)

Crossrefs

Sequence in context: A057794 A357199 A257545 * A104083 A257163 A327765

Adjacent sequences: A073712 A073713 A073714 * A073716 A073717 A073718

Keyword

nonn

Author

Labos Elemer, Aug 05 2002

Status

approved