A293017 - OEIS

%I #27 Nov 04 2019 14:11:20

%S 1,0,0,-6,-24,-60,240,4830,39984,180936,-605520,-24616350,-318005160,

%T -2385790836,-86488584,350543790870,6917020827360,79778558317200,

%U 357117438258144,-9237998478286134,-304182278908538040,-5166739059890655660,-48968796671246843160

%N E.g.f.: exp(-x^3 * exp(x)).

%H Seiichi Manyama, <a href="/A293017/b293017.txt">Table of n, a(n) for n = 0..505</a>

%F a(n) = (-1)^n * A292908(n).

%p seq(k!*coeftayl(exp(-x^3*exp(x)), x = 0, k),k=0..30); # _Muniru A Asiru_, Oct 01 2017

%t With[{nn=30},CoefficientList[Series[Exp[-x^3Exp[x]],{x,0,nn}],x] Range[ 0,nn]!] (* _Harvey P. Dale_, Nov 04 2019 *)

%o (PARI) x='x+O('x^66); Vec(serlaplace(exp(-x^3*exp(x))))

%Y Column k=3 of A293019.

%Y Cf. A292908.

%K sign

%O 0,4

%A _Seiichi Manyama_, Sep 28 2017