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

%I #16 May 15 2023 19:00:26

%S 1,-1,-1,2,9,4,-95,-414,49,10088,55521,13870,-2024759,-15787188,

%T -28612415,616876274,7476967905,32522642896,-209513308607,

%U -4924388011050,-38993940088199,-11731860520780,3807154270837281,52018152493218010,278413297030360273

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

%H Seiichi Manyama, <a href="/A292952/b292952.txt">Table of n, a(n) for n = 0..557</a>

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

%t With[{nn=30},CoefficientList[Series[Exp[-x Exp[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, May 15 2023 *)

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

%Y Column k=1 of A293015.

%Y Cf. this sequence (k=1), A292953 (k=2), A292954 (k=3), A292955 (k=4).

%Y Cf. A003725.

%K sign

%O 0,4

%A _Seiichi Manyama_, Sep 27 2017