A202321 - OEIS

%I #21 Nov 21 2024 15:37:50

%S 1,1,4,6,1,9,3,2,2,0,6,2,0,5,8,2,5,8,5,2,3,7,0,6,1,0,2,8,5,2,1,3,6,8,

%T 2,5,2,8,8,8,6,6,2,0,4,6,1,8,2,4,8,8,4,2,6,0,3,4,6,1,9,2,9,1,2,8,6,7,

%U 7,5,1,6,3,9,8,7,5,4,8,8,7,0,7,7,4,3,9,6,0,6,6,1,6,9,0,4,4,6,7

%N Decimal expansion of x > 0 satisfying x + 2 = exp(x).

%C See A202320 for a guide to related sequences. The Mathematica program includes a graph.

%H G. C. Greubel, <a href="/A202321/b202321.txt">Table of n, a(n) for n = 1..10000</a>

%H <a href="/index/Tra#transcendental">Index entries for transcendental numbers</a>

%F a(n) = -LambertW(-1, -exp(-2)) - 2. - _Vaclav Kotesovec_, Jan 09 2014

%e x < 0: -1.841405660436960637846604658012486...

%e x > 0:  1.1461932206205825852370610285213682...

%t u = 1; v = 2;

%t f[x_] := u*x + v; g[x_] := E^x

%t Plot[{f[x], g[x]}, {x, -2, 2}, {AxesOrigin -> {0, 0}}]

%t r = x /. FindRoot[f[x] == g[x], {x, -1.9, -1.8}, WorkingPrecision -> 110]

%t RealDigits[r]  (* A202320 *)

%t r = x /. FindRoot[f[x] == g[x], {x, 1.1, 1.2}, WorkingPrecision -> 110]

%t RealDigits[r]  (* A202321 *)

%t RealDigits[-ProductLog[-1, -1/E^2] - 2, 10, 99] // First (* _Jean-François Alcover_, Feb 26 2013 *)

%o (PARI) solve(x=1, 2, x+2-exp(x)) \\ _Michel Marcus_, Nov 09 2017

%Y Cf. A202320.

%K nonn,cons

%O 1,3

%A _Clark Kimberling_, Dec 16 2011