(PARI){a(n)=局部(a=1);a=(1/x)*serreverse(2*x-x*exp(x+x^2*O(x^n));n!*polceoff(a,n)}
对于(n=0,20,打印1(a(n),“,”)\\保罗·D·汉纳2015年6月19日
(PARI){Dx(n,F)=局部(D=F);对于(i=1,n,D=导数(D));D}
{a(n)=局部(a=1);a=1+(1/x)*和(m=1,n+1,Dx(m-1,(exp(x+x*O(x^n))-1)^m*x^m/m!);n!*polcoff(a,n)}
对于(n=0,25,打印1(a(n),“,”)\\保罗·D·汉纳2015年6月19日
(PARI){Dx(n,F)=局部(D=F);对于(i=1,n,D=导数(D));D}
{a(n)=局部(a=1+x+x*O(x^n))
对于(n=0,25,打印1(a(n),“,”)\\保罗·D·汉纳2015年6月19日