cp's OEIS Frontend

A332915 Decimal expansion of the constant W(1) + 1/W(1), where W is Lambert's function.

%I A332915 #18 Jul 18 2021 03:38:56
%S A332915 2,3,3,0,3,6,6,1,2,4,7,6,1,6,8,0,5,8,3,2,2,5,1,7,0,4,3,9,1,6,2,0,6,2,
%T A332915 6,3,0,1,8,9,8,3,3,7,7,3,8,5,3,9,8,6,1,4,2,7,0,5,5,8,7,9,8,4,7,7,0,3,
%U A332915 2,1,6,4,0,2,7,3,6,8,0,3,0,3,4,8,2,3,0
%N A332915 Decimal expansion of the constant W(1) + 1/W(1), where W is Lambert's function.
%C A332915 The graph of the exponential function exp(x) moved to the right by W(1) + 1/W(1) touches the graph of the natural logarithm log(x) at point (x,y) = (1/W(1), W(1)) = (A030797, A030178).
%F A332915 Equals A030178 + A030797 = A030178 + 1/A030178 = 1/A030797 + A030797.
%F A332915 Equals 2 + Integral_{x=0..1} W(x) dx. - _Amiram Eldar_, Jul 18 2021
%e A332915 2.33036612476168058322517043916206263018983377385398...
%p A332915 evalf[200](LambertW(1) + 1/LambertW(1));
%t A332915 RealDigits[N[LambertW[1] + 1/LambertW[1], 120]][[1]] (* _Vaclav Kotesovec_, Mar 02 2020 *)
%o A332915 (PARI) my(x=lambertw(1)); x+1/x \\ _Michel Marcus_, Mar 02 2020
%Y A332915 Cf. A030178, A030797, A052888.
%K A332915 nonn,cons
%O A332915 1,1
%A A332915 _Martin Renner_, Mar 02 2020