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,4

Comments

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

Links

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

Mathematica

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

Crossrefs

Cf. A050500, A050499, A050501.

Sequence in context: A235043 A071538 A321017 * A133876 A321018 A340764

Adjacent sequences: A138191 A138192 A138193 * A138195 A138196 A138197

Keyword

nonn

Author

Reinhard Zumkeller, Mar 04 2008

Status

approved