OFFSET
3,1
LINKS
S. Coulomb and M. Bauer, On vertex covers, matchings and random trees
FORMULA
E.g.f.: A(x) = T(x)+T(-T(x))-T(-T(x))^2, with T(x)=Sum[k=1..inf, A000169(k)/k!*x^k].
a(n) = -n^(n-1) * {1 + Sum[l=1..n, (-l/n)^l*(2/l-1)*C(n, l)]}.
a(n) ~ (1-2*LambertW(1)^2)*n^(n-1)/(1+LambertW(1)). - Vaclav Kotesovec, Aug 26 2016
MATHEMATICA
Drop[CoefficientList[Series[-LambertW[-x] - LambertW[-LambertW[-x]]- LambertW[-LambertW[-x]]^2, {x, 0, 20}], x] * Range[0, 20]!, 3] (* Vaclav Kotesovec, Aug 26 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ralf Stephan, Jul 30 2004
STATUS
approved