OFFSET
0,1
COMMENTS
Also the real solution to W(-log(x))=x where W(x) is the LambertW function.
FORMULA
Equals log(A264808).
EXAMPLE
0.4706753747765085260786198361446493848000552943051975487850...
MATHEMATICA
RealDigits[x/.FindRoot[x*Exp[x*Exp[x]]-1, {x, 0}, WorkingPrecision-> 120]] [[1]] (* Harvey P. Dale, Sep 07 2020 *)
PROG
(PARI) solve(x=0.01, 1, x*exp(x*exp(x))-1) \\ Michel Marcus, Jan 26 2020
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Connor Sponsler, Jan 25 2020
EXTENSIONS
Prior Mathematica program amended by Harvey P. Dale, Sep 07 2020
STATUS
approved