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

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

Offset

2,18

Links

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

Mathematica

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

Crossrefs

Sequence in context: A077099 A276337 A160385 * A355813 A136754 A276788

Adjacent sequences: A076878 A076879 A076880 * A076882 A076883 A076884

Keyword

sign

Author

Joseph L. Pe, Nov 25 2002

Status

approved