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

1,4

Links

G. C. Greubel, Table of n, a(n) for n = 1..10000

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.

Cf. A143914, A143915.

Sequence in context: A167482 A328601 A137327 * A228815 A241555 A277741

Adjacent sequences: A143910 A143911 A143912 * A143914 A143915 A143916

Keyword

cofr,nonn

Author

Ross La Haye, Sep 04 2008

Status

approved