login
A143913
Continued fraction expansion of e^(W(e-1)/(e-1)) where W(z) denotes the Lambert W function and e = 2.718281828...
4
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,4
LINKS
MATHEMATICA
ContinuedFraction[E^((ProductLog[E - 1])/(E - 1)), 111]
PROG
(PARI) contfrac(exp((lambertw(exp(1) -1)/(exp(1) -1)))) \\ G. C. Greubel, Mar 02 2018
CROSSREFS
Cf. A141606 for decimal expansion.
Sequence in context: A167482 A328601 A137327 * A228815 A241555 A277741
KEYWORD
cofr,nonn
AUTHOR
Ross La Haye, Sep 04 2008
EXTENSIONS
Offset changed by Andrew Howroyd, Aug 09 2024
STATUS
approved