A076882 pi(n) - ceiling(n / log(n)), where pi(n) = the number of primes <= n.

-2, -1, -1, -1, -1, 0, 0, -1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 2, 2, 2, 1, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 1, 1, 2, 2, 3, 2, 2, 2, 2, 2, 3, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 3, 3, 3, 3, 4, 3, 3, 3, 3, 3, 3, 2, 3, 3, 3, 3

Offset

2,1

Links

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

Mathematica

Table[PrimePi[i] - Ceiling[i/Log[i]], {i, 2, 100}]

Crossrefs

Sequence in context: A096493 A269242 A321759 * A229745 A339366 A016397

Adjacent sequences: A076879 A076880 A076881 * A076883 A076884 A076885

Keyword

sign

Author

Joseph L. Pe, Nov 25 2002

Status

approved