|
%I #13 Sep 30 2017 18:47:13
%S 1,0,0,-6,-24,-120,-360,0,20160,302400,3628800,39916800,419126400,
%T 4151347200,36324288000,207048441600,-1743565824000,-103742166528000,
%U -2925529096089600,-69945932735078400,-1571249213614080000,-34354603773794304000,-741528257908838400000
%N E.g.f.: exp(x^3/(x-1)).
%H Seiichi Manyama, <a href="/A293118/b293118.txt">Table of n, a(n) for n = 0..450</a>
%p a:= proc(n) option remember; `if`(n=0, 1, -add(
%p a(n-j)*binomial(n-1, j-1)*j!, j=3..n))
%p end:
%p seq(a(n), n=0..25); # _Alois P. Heinz_, Sep 30 2017
%t CoefficientList[Series[E^(-x^3/(1-x)), {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Sep 30 2017 *)
%o (PARI) x='x+O('x^66); Vec(serlaplace(exp(x^3/(x-1))))
%Y Column k=2 of A293119.
%Y Cf. A293049.
%K sign
%O 0,4
%A _Seiichi Manyama_, Sep 30 2017
|
