login
Decimal expansion of the number x other than -3 defined by x*e^x = -3/e^3.
16

%I #22 Nov 16 2017 02:43:32

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

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

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

%N Decimal expansion of the number x other than -3 defined by x*e^x = -3/e^3.

%H G. C. Greubel, <a href="/A226750/b226750.txt">Table of n, a(n) for n = 0..5000</a>

%e -0.178560627877921106596808669705514804654118255926885907720142306058785...

%t RealDigits[N[ProductLog[-3/e^3], 105]][[1]]

%o (PARI) solve(x=0,1,3/exp(3)-x*exp(-x)) \\ _Charles R Greathouse IV_, Nov 19 2013

%Y Cf. A106533, A217913, A221214, A274712, A274713.

%K nonn,cons

%O 0,2

%A _José María Grau Ribas_, Jun 16 2013

%E Term a(104) corrected by _G. C. Greubel_, Nov 16 2017