A050501 a(n) = ceiling(n/log(n)).

3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 9, 9, 9, 9, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 13, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 15, 15, 15, 15, 15, 16, 16, 16, 16, 16, 16, 17, 17, 17, 17, 17, 18, 18

Offset

2,1

Comments

Also, least k such that k*log(n) exceeds n. - Amarnath Murthy, Jun 17 2004

Links

T. D. Noe, Table of n, a(n) for n = 2..10000

Mathematica

Do[k = 1; While[k*Log[n] <= n, k++ ]; Print[k], {n, 2, 100}] (* Ryan Propper, Sep 17 2005 *)
Array[ Ceiling[#/Log@#] &, 80, 2] (* Robert G. Wilson v, Jan 15 2017 *)

Crossrefs

See A050499 for more information.

Sequence in context: A289189 A134849 A096056 * A327469 A105590 A220845

Adjacent sequences: A050498 A050499 A050500 * A050502 A050503 A050504

Keyword

nonn

Author

N. J. A. Sloane, Dec 27 1999

Extensions

Edited by N. J. A. Sloane, Sep 15 2008 at the suggestion of R. J. Mathar

Status

approved