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

Author

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

Keywords

• nonn
• cofr

Examples

			0.5671432904097838...
		

Links

• G. C. Greubel, Table of n, a(n) for n = 0..10000
• Index entries for continued fractions for constants

Crossrefs

Cf. A030178.

Programs

Maple

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

Mathematica

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

PARI

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