OFFSET
0,1
COMMENTS
See A201936 for a guide to related sequences. The Mathematica program includes a graph.
1/(x+1) is the solution for real valued z in the equations dW(z)/dz=W(z) and 1=z(W(z)+1) where W(z) is the 0 branch of the Lambert W function. - Colin Linzer, Nov 01 2024
EXAMPLE
x=0.444130228823966590585466329490984667...
MATHEMATICA
a = 1; b = 1; c = 0;
f[x_] := a*x^2 + b*x + c; g[x_] := E^-x
Plot[{f[x], g[x]}, {x, -1, 2}, {AxesOrigin -> {0, 0}}]
r = x /. FindRoot[f[x] == g[x], {x, .4, .5}, WorkingPrecision -> 110]
RealDigits[r] (* A201941 *)
CROSSREFS
KEYWORD
AUTHOR
Clark Kimberling, Dec 13 2011
STATUS
approved