A225541 Floor(W(n)) where W is the Lambert W function.

0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3

Offset

0,16

Links

Charles R Greathouse IV, Table of n, a(n) for n = 0..10000

Formula

a(n) = log n - log log n + O(1). - Charles R Greathouse IV, Dec 27 2013

Mathematica

Table[Floor[ProductLog[n]], {n, 0, 100}]

Prog

(PARI) a(n)=lambertw(n)\1 \\ Charles R Greathouse IV, Dec 27 2013

Crossrefs

Sequence in context: A102572 A098391 A071702 * A355480 A076303 A339276

Adjacent sequences: A225538 A225539 A225540 * A225542 A225543 A225544

Keyword

nonn

Author

José María Grau Ribas, May 17 2013

Status

approved