A226750 Decimal expansion of the number x other than -3 defined by x*e^x = -3/e^3.
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, 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, 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
Offset: 0
Examples
-0.178560627877921106596808669705514804654118255926885907720142306058785...
Links
- G. C. Greubel, Table of n, a(n) for n = 0..5000
Programs
-
Mathematica
RealDigits[N[ProductLog[-3/e^3], 105]][[1]]
-
PARI
solve(x=0,1,3/exp(3)-x*exp(-x)) \\ Charles R Greathouse IV, Nov 19 2013
Extensions
Term a(104) corrected by G. C. Greubel, Nov 16 2017