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

1, 2, 3, 8, 11, 30, 161, 835, 996, 552619, 1658853, 7188031, 8846884, 210666363, 430179610, 4082282853, 8594745316, 12677028169, 3875088336861, 3887765365030, 7762853701891, 11650619066921, 42714710902654

Offset

0,2

Links

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

Mathematica

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

Crossrefs

Cf. A141606 for decimal expansion, A143913 for continued fraction expansion.

Cf. A143915

Sequence in context: A335632 A048788 A239453 * A041123 A042045 A317912

Adjacent sequences: A143911 A143912 A143913 * A143915 A143916 A143917

Keyword

frac,nonn

Author

Ross La Haye, Sep 05 2008

Status

approved