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

Author

Ross La Haye, Sep 04 2008

Keywords

• cofr
• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 0..9999

Crossrefs

Cf. A141606 for decimal expansion.

Cf. A143914, A143915.

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