%I #11 Mar 04 2018 04:13:59
%S 1,2,3,8,11,30,161,835,996,552619,1658853,7188031,8846884,210666363,
%T 430179610,4082282853,8594745316,12677028169,3875088336861,
%U 3887765365030,7762853701891,11650619066921,42714710902654
%N Numerators of continued fraction convergents to e^(W(e-1)/(e-1)) where W(z) denotes the Lambert W function and e = 2.718281828...
%H G. C. Greubel, <a href="/A143914/b143914.txt">Table of n, a(n) for n = 0..1000</a>
%t Table[Numerator[FromContinuedFraction[ContinuedFraction[E^((ProductLog[E - 1])/(E - 1)), n]]], {n, 1, 25}]
%Y Cf. A141606 for decimal expansion, A143913 for continued fraction expansion.
%Y Cf. A143915
%K frac,nonn
%O 0,2
%A _Ross La Haye_, Sep 05 2008