|
| |
|
|
A102743
|
|
Expansion of LambertW(-x)/(x*(x-1)).
|
|
1
|
|
|
|
1, 2, 7, 37, 273, 2661, 32773, 491555, 8715409, 178438681, 4142334501, 107483043735, 3081956918857, 96759352320437, 3300826000845493, 121569984050610331, 4807542796319581089, 203167758634027130289
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,2
|
|
|
LINKS
|
Vincenzo Librandi, Table of n, a(n) for n = 0..100
|
|
|
FORMULA
|
a(n) = n!*Sum_{k=1..n+1} k^(k-1)/k!. - Vladeta Jovovic, Oct 17 2007
a(n) ~ exp(2)/(exp(1)-1) * n^(n-1). - Vaclav Kotesovec, Nov 27 2012
|
|
|
MATHEMATICA
|
CoefficientList[Series[LambertW[-x]/(x*(x-1)), {x, 0, 20}], x]* Range[0, 20]! (* Vaclav Kotesovec, Nov 27 2012 *)
|
|
|
CROSSREFS
|
Sequence in context: A107877 A001028 A116481 * A195068 A196916 A182331
Adjacent sequences: A102740 A102741 A102742 * A102744 A102745 A102746
|
|
|
KEYWORD
|
easy,nonn,changed
|
|
|
AUTHOR
|
Vladeta Jovovic, Feb 08 2005
|
|
|
STATUS
|
approved
|
| |
|
|
