PROG
(MAGMAMagma) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!( Exp(x*Exp(x)-x) )); [Factorial(n-1)*b[n]: n in [1..m-1]]; // G. C. Greubel, May 13 2019
(MAGMAMagma) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!( Exp(x*Exp(x)-x) )); [Factorial(n-1)*b[n]: n in [1..m-1]]; // G. C. Greubel, May 13 2019
proposed
approved
editing
proposed
G.f.: Sum_{k>=0} x^k / (1 - (k+-1)*x)^(k+1). - Seiichi Manyama, Aug 29 2022
G.f.: Sum_{k>=0} x^k / (1 - (k+1)*x)^(k+1). - Seiichi Manyama, Aug 29 2022
(PARI) my(N=30, x='x+O('x^N)); Vec(sum(k=0, N, x^k/(1-(k-1)*x)^(k+1))) \\ Seiichi Manyama, Aug 29 2022
EExpansion of e.g.f.: exp(x*exp(x)-x).
approved
editing
proposed
approved
editing
proposed