A225545 Floor(exp(w(n))) where W is the Lambert W function.

1, 1, 2, 2, 3, 3, 4, 4, 4, 5, 5, 6, 6, 6, 7, 7, 7, 8, 8, 8, 9, 9, 9, 9, 10, 10, 10, 11, 11, 11, 12, 12, 12, 12, 13, 13, 13, 14, 14, 14, 14, 15, 15, 15, 15, 16, 16, 16, 16, 17, 17, 17, 17, 18, 18, 18, 19, 19, 19, 19, 20, 20, 20, 20, 21, 21, 21, 21, 21, 22, 22

Offset

0,3

Links

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

Formula

a(n) = n/log n + n log log n/log^2 n + O(n (log log n)^2/log^3 n). - Charles R Greathouse IV, Dec 27 2013

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A061017 A331535 A248170 * A088462 A189574 A233795

Adjacent sequences: A225542 A225543 A225544 * A225546 A225547 A225548

Keyword

nonn

Author

José María Grau Ribas, May 17 2013

Status

approved