|
|
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...
|
|
4
|
|
|
1, 1, 2, 5, 7, 19, 102, 529, 631, 350103, 1050940, 4553863, 5604803, 133464332, 272533467, 2586265535, 5445064537, 8031330072, 2455000736497, 2463032066569, 4918032803066, 7381064869635, 27061227411971, 142687201929490
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
MATHEMATICA
|
Table[Denominator[FromContinuedFraction[ContinuedFraction[E^((ProductLog[E - 1])/(E - 1)), n]]], {n, 1, 25}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
frac,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|