OFFSET
0,1
LINKS
Eric Weisstein's World of Mathematics, Lambert W-Function.
Wikipedia, Lambert W function.
EXAMPLE
0.59894186245845296434937462499354337090439301349540222363040350792213...
MATHEMATICA
RealDigits[r/.FindRoot[LambertW[r] == 1 - r, {r, 1/2}, WorkingPrecision->150], 10, 120][[1]]
PROG
(PARI) solve(x=0, 1, 1-x-lambertw(x)) \\ Michel Marcus, Jun 09 2020
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Vaclav Kotesovec, Jun 09 2020
STATUS
approved