A143915 Denominators of continued fraction convergents to e^(W(e-1)/(e-1)) where W(z) denotes the Lambert W function and e = 2.718281828...

1, 1, 2, 5, 7, 19, 102, 529, 631, 350103, 1050940, 4553863, 5604803, 133464332, 272533467, 2586265535, 5445064537, 8031330072, 2455000736497, 2463032066569, 4918032803066, 7381064869635, 27061227411971, 142687201929490

Offset

0,3

Links

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

Mathematica

Table[Denominator[FromContinuedFraction[ContinuedFraction[E^((ProductLog[E - 1])/(E - 1)), n]]], {n, 1, 25}]

Crossrefs

Cf. A143914 (numerators), A141606 (decimal expansion), A143913 (continued fraction).

Sequence in context: A041387 A096146 A041583 * A355597 A309542 A327322

Adjacent sequences: A143912 A143913 A143914 * A143916 A143917 A143918

Keyword

frac,nonn

Author

Ross La Haye, Sep 05 2008

Status

approved