|
%I #7 Mar 04 2018 04:08:47
%S 1,1,2,5,7,19,102,529,631,350103,1050940,4553863,5604803,133464332,
%T 272533467,2586265535,5445064537,8031330072,2455000736497,
%U 2463032066569,4918032803066,7381064869635,27061227411971,142687201929490
%N Denominators 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="/A143915/b143915.txt">Table of n, a(n) for n = 0..1000</a>
%t Table[Denominator[FromContinuedFraction[ContinuedFraction[E^((ProductLog[E - 1])/(E - 1)), n]]], {n, 1, 25}]
%Y Cf. A143914 (numerators), A141606 (decimal expansion), A143913 (continued fraction).
%K frac,nonn
%O 0,3
%A _Ross La Haye_, Sep 05 2008
|
