(PARI){a(n)=本地(a=x);a=(1/x)*serreverse(-x+2*x*exp(-x+x^2*O(x^n));n!*polcoeff(a,n)}
对于(n=0,20,打印1(a(n),“,”)
(PARI){Dx(n,F)=局部(D=F);对于(i=1,n,D=导数(D));D}
{a(n)=局部(a=x);a=1+(1/x)*和(m=1,n,Dx(m-1,2^m*(1-exp(-x+x^2*O(x^n)));n!*polcoff(a,n)}
对于(n=0,25,打印1(a(n),“,”)
(PARI){Dx(n,F)=局部(D=F);对于(i=1,n,D=导数(D));D}
{a(n)=局部(a=x+x^2+x*O(x^n))
对于(n=0,25,打印1(a(n),“,”)