A138194 Floor(2*n/(3*log(n))).

1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 12, 12, 12, 12, 13, 13, 13, 13

Offset: 2

Author

Reinhard Zumkeller, Mar 04 2008

Keywords

• nonn

Comments

a(n) <= A000720(n) <= A138195(n), (Tschebyscheff, 1850).

Crossrefs

Cf. A050500, A050499, A050501.

Programs

Mathematica

Table[Floor[(2n)/(3Log[n])],{n,2,100}] (* Harvey P. Dale, Jan 25 2025 *)