login
E.g.f.: exp(-x^2 * exp(x)).
2

%I #14 Apr 21 2019 12:41:15

%S 1,0,-2,-6,0,100,570,798,-15176,-163368,-700650,3112450,84347868,

%T 738909444,1555721986,-54879912570,-955420939440,-7454556070352,

%U 13202860260654,1329363428217354,20878556441998660,145324350344133660,-1185240365741022822

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

%H Seiichi Manyama, <a href="/A293016/b293016.txt">Table of n, a(n) for n = 0..526</a>

%p f := series(exp(-x^2 * exp(x)), x = 0, 101): 1, seq(factorial(n) * coeff(f, x^n), n = 1..100); # _Muniru A Asiru_, Oct 31 2017

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

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

%Y Column k=2 of A293019.

%K sign

%O 0,3

%A _Seiichi Manyama_, Sep 28 2017