%I #19 May 03 2021 02:13:33
%S 1,-1,0,0,0,0,120,-120,-720,-5040,-40320,-362880,3024000,21859200,
%T 151113600,753667200,-3978374400,-249882796800,-1752623308800,
%U -7319841177600,79100731699200,2905096654540800,48387220210944000,226481995918080000,-2094278695939584000,-85503113536135680000
%N E.g.f.: exp(-(x + x^2/2 + x^3/3 + x^4/4 + x^5/5)).
%H Seiichi Manyama, <a href="/A334571/b334571.txt">Table of n, a(n) for n = 0..500</a>
%F a(0) = 1 and a(n) = - (n-1)! * Sum_{k=1..min(5,n)} a(n-k)/(n-k)!.
%t m = 25; Range[0, m]! * CoefficientList[Series[Exp[-(x + x^2/2 + x^3/3 + x^4/4 + x^5/5)], {x, 0, m}], x] (* _Amiram Eldar_, May 03 2021 *)
%o (PARI) N=40; x='x+O('x^N); Vec(serlaplace(exp(-x-x^2/2-x^3/3-x^4/4-x^5/5)))
%Y Column 5 of A334568.
%Y Cf. A070946, A334565.
%K sign
%O 0,7
%A _Seiichi Manyama_, May 06 2020
|