A059788 a(n) = largest prime < 2*prime(n).

3, 5, 7, 13, 19, 23, 31, 37, 43, 53, 61, 73, 79, 83, 89, 103, 113, 113, 131, 139, 139, 157, 163, 173, 193, 199, 199, 211, 211, 223, 251, 257, 271, 277, 293, 293, 313, 317, 331, 337, 353, 359, 379, 383, 389, 397, 421, 443, 449, 457, 463, 467, 479, 499, 509, 523

Offset

1,1

Comments

Also, smallest member of the first pair of consecutive primes such that between them is a composite number divisible by the n-th prime. - Amarnath Murthy, Sep 25 2002

Except for its initial term, A006992 is a subsequence based on iteration of n -> A151799(2n). The range of this sequence is a subset of A065091. - M. F. Hasler, May 08 2016

Links

Zak Seidov, Table of n, a(n) for n = 1..1000

Formula

a(n) = A007917(A100484(n)). - R. J. Mathar, May 08 2016

Example

n=18: p(18)=61, so a(18) is the largest prime below 2*61=122, which is 113.

Maple

with(numtheory):
A059788 := proc(n)
    prevprime(2*ithprime(n)) ;
end proc:
seq(A059788(n), n=1..50) ; # R. J. Mathar, May 08 2016

Mathematica

a[n_] := Prime[PrimePi[2Prime[n]]]
NextPrime[2*Prime[Range[100]], -1] (* Zak Seidov, May 08 2016 *)

Prog

(PARI) a(n) = precprime(2*prime(n)); \\ Michel Marcus, May 08 2016

Crossrefs

Cf. A005382, A005383, A005384, A005385, A055496, A006992, A052248.

Sequence in context: A127459 A174635 A075579 * A077171 A171602 A155189

Adjacent sequences: A059785 A059786 A059787 * A059789 A059790 A059791

Keyword

nonn

Author

Labos Elemer, Feb 22 2001

Status

approved