OFFSET
1,2
COMMENTS
For the negative solution, see A202347.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
EXAMPLE
x = 1.42037011802008345845842...
MATHEMATICA
RealDigits[x/.FindRoot[E^x==E+x, {x, 1.4}, WorkingPrecision->120], 10, 120] [[1]] (* Harvey P. Dale, Aug 01 2011 *)
RealDigits[-E - LambertW[-1, -Exp[-E]], 10, 100][[1]] (* G. C. Greubel, Nov 09 2017 *)
PROG
(PARI) solve(x=0, 2, exp(x)-exp(1)-x) \\ Michel Marcus, Nov 09 2017
CROSSREFS
KEYWORD
cons,nonn
AUTHOR
Zak Seidov, Apr 23 2005
STATUS
approved