A092998 Least integer k > n such that the number of primes between 1 and n (exclusive) is the same as the number of primes between n and k (exclusive).

3, 6, 8, 12, 14, 18, 20, 20, 20, 24, 30, 32, 38, 38, 38, 42, 44, 48, 54, 54, 54, 60, 62, 62, 62, 62, 62, 68, 72, 74, 80, 80, 80, 80, 80, 84, 90, 90, 90, 98, 102, 104, 108, 108, 108, 110, 114, 114, 114, 114, 114, 128, 132, 132, 132, 132, 132, 138, 140, 150, 152, 152

Offset

2,1

Links

Table of n, a(n) for n=2..63.

Mathematica

Do[k = n + 1; While[Length[Select[Range[n - 1], PrimeQ]] != Length[Select[Range[n + 1, k - 1], PrimeQ]], k++ ]; Print[k], {n, 2, 100}] (* Ryan Propper, Sep 23 2006 *)
Table[Nest[NextPrime, n, PrimePi[n-1]]+1, {n, 2, 70}] (* Harvey P. Dale, May 19 2016 *)

Crossrefs

Cf. A092996, A092997, A077154.

Sequence in context: A122116 A209885 A126862 * A135731 A118335 A189630

Adjacent sequences: A092995 A092996 A092997 * A092999 A093000 A093001

Keyword

easy,nonn

Author

Amarnath Murthy, Mar 29 2004

Extensions

More terms from Ryan Propper, Sep 23 2006

Status

approved