cp's OEIS Frontend

A202498 Decimal expansion of x satisfying x=e^(-2x).

%I A202498 #9 Feb 07 2025 16:44:07
%S A202498 4,2,6,3,0,2,7,5,1,0,0,6,8,6,2,7,4,5,6,7,3,2,3,6,2,0,7,3,4,7,6,5,8,7,
%T A202498 3,3,4,4,9,2,2,6,6,5,0,0,7,5,7,0,1,7,5,4,3,8,6,0,5,3,6,9,7,3,2,6,2,5,
%U A202498 7,5,3,2,8,3,7,1,3,1,5,2,2,4,4,8,2,8,8,6,8,9,1,7,5,1,2,4,7,4,2
%N A202498 Decimal expansion of x satisfying x=e^(-2x).
%C A202498 See A202348 for a guide to related sequences. The Mathematica program includes a graph.
%e A202498 x=0.426302751006862745673236207347658733449226...
%t A202498 u = -2; v = 0;
%t A202498 f[x_] := x; g[x_] := E^(u*x + v)
%t A202498 Plot[{f[x], g[x]}, {x, -1, 1}, {AxesOrigin -> {0, 0}}]
%t A202498 r = x /. FindRoot[f[x] == g[x], {x, .4, .5}, WorkingPrecision -> 110]
%t A202498 RealDigits[r]  (* A202498 *)
%t A202498 RealDigits[ ProductLog[2]/2, 10, 99] // First (* _Jean-François Alcover_, Feb 27 2013 *)
%Y A202498 Cf. A202348.
%K A202498 nonn,cons
%O A202498 0,1
%A A202498 _Clark Kimberling_, Dec 20 2011