A019474 Continued fraction expansion of W(1), where W(x) is the Lambert W function (the root of w*exp(w) = x).

0, 1, 1, 3, 4, 2, 10, 4, 1, 1, 1, 1, 2, 7, 306, 1, 5, 1, 2, 1, 5, 1, 1, 1, 1, 7, 1, 4, 2, 15, 1, 2, 1, 1, 4, 1, 3, 3, 5, 4, 1, 1, 1, 4, 3, 1, 38, 1, 2, 4, 1, 5, 2, 1, 6, 2, 1, 1, 1, 1, 1, 1, 1, 1, 3, 4, 5, 3, 2, 11, 1, 1, 1, 49, 4, 1, 1, 1

Offset

0,4

Links

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

Index entries for continued fractions for constants

Example

0.5671432904097838...

Maple

Digite := 80: evalf(LambertW(1)); convert(%, confrac);

Mathematica

ContinuedFraction[ ProductLog[1], 78]  (* Jean-François Alcover, Jun 24 2013 *)

Prog

(PARI) contfrac(lambertw(1)) \\ G. C. Greubel, Mar 03 2018

Crossrefs

Cf. A030178.

Sequence in context: A338245 A352417 A286681 * A366896 A072565 A159672

Adjacent sequences: A019471 A019472 A019473 * A019475 A019476 A019477

Keyword

nonn,cofr

Author

Robert Corless (rmc(AT)pineapple.apmaths.uwo.ca), N. J. A. Sloane.

Status

approved