editing
approved
editing
approved
With[{nn=20}, CoefficientList[Series[Exp[x]/(1-x)^3, {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Aug 07 2022 *)
approved
editing
editing
approved
a(n) = KummerU(-n, -n - 2, 1). - Peter Luschny, May 10 2022
a := n -> hypergeom([3, -n], [], -1); seq(round(evalfsimplify(a(n), 100)), n=0..18); # Peter Luschny, Sep 20 2014
seq(simplify(KummerU(-n, -n - 2, 1)), n = 0..20); # Peter Luschny, May 10 2022
approved
editing
proposed
approved
editing
proposed
E.g.f.: exp(x)/(1-x)^3.
proposed
editing
editing
proposed
proposed
approved