A143913 Continued fraction expansion of e^(W(e-1)/(e-1)) where W(z) denotes the Lambert W function and e = 2.718281828...
1, 1, 1, 2, 1, 2, 5, 5, 1, 554, 3, 4, 1, 23, 2, 9, 2, 1, 305, 1, 1, 1, 3, 5, 5, 1, 3, 10, 5, 3, 1, 2, 1, 2, 1, 1, 2, 1, 4, 2, 1, 3, 2, 9, 1, 4, 11, 1, 3, 1, 3, 3, 1, 11, 4, 4, 1, 1, 2, 2, 3, 3, 4, 1, 3, 6, 3, 1, 2, 1, 3, 3, 3, 9, 1, 2, 11, 7, 1, 4, 1, 8, 10, 23, 2, 4, 1, 2, 10, 5, 2, 5, 1, 3, 36, 1, 6, 1, 6
Offset: 0
Links
- G. C. Greubel, Table of n, a(n) for n = 0..9999
Programs
-
Mathematica
ContinuedFraction[E^((ProductLog[E - 1])/(E - 1)), 111]
-
PARI
contfrac(exp((lambertw(exp(1) -1)/(exp(1) -1)))) \\ G. C. Greubel, Mar 02 2018
Extensions
Offset changed by Andrew Howroyd, Aug 09 2024