OFFSET
1,2
FORMULA
E.g.f.: x*(exp(x)-1)*exp(x)/(2-exp(x))^3. - Vladeta Jovovic, Sep 14 2003
a(n) ~ n! * n^2 / (8 * (log(2))^(n+2)). - Vaclav Kotesovec, Feb 18 2017
MATHEMATICA
a[n_] := n Sum[1/2 (k-1) k! StirlingS2[n, k], {k, 1, n}];
Array[a, 20] (* Jean-François Alcover, Sep 01 2018 *)
Rest[Range[0, 19]! CoefficientList[Series[x (Exp[x] - 1) Exp[x] / (2 - Exp[x])^3, {x, 0, 19}], x]] (* Vincenzo Librandi, Sep 01 2018 *)
PROG
(Magma) [n*&+[(k-1)/2*Factorial(k)*StirlingSecond(n, k): k in [0..n]]: n in [1..25]]; // Vincenzo Librandi, Sep 01 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jun 07 2003
STATUS
approved