%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