|
%I #20 Nov 12 2021 12:54:13
%S 1,0,0,0,1,-5,15,-35,105,-756,6510,-46530,283470,-1667380,11457446,
%T -99776040,969295145,-9298091180,86154691680,-804769174536,
%U 8052676029420,-88489327173660,1038440150703340,-12501684521410700,151866259113256611
%N E.g.f.: exp(1/4! * x^4 * exp(-x)).
%H Seiichi Manyama, <a href="/A292912/b292912.txt">Table of n, a(n) for n = 0..534</a>
%F a(n) = (-1)^n * A145454(n).
%t With[{nn=30},CoefficientList[Series[Exp[x^4/4! Exp[-x]],{x,0,nn}],x] Range[ 0,nn]!] (* _Harvey P. Dale_, Nov 12 2021 *)
%o (PARI) x='x+O('x^66); Vec(serlaplace(exp(1/4!*x^4*exp(-x))))
%Y Column k=4 of A292948.
%Y Cf. A145454.
%K sign
%O 0,6
%A _Seiichi Manyama_, Sep 26 2017
|
