(平价)
邮编:A286781_ser(N,t='t)={
my(x='x+O('x^N),y0=1+O('x^N),y1=0,N=1);
而(n++,
y1=(1+x*y0+2*x^2*y0')*(1-x*y0*(1-t))/(1-x*y0)^2;
如果(y1==y0,break());y0=y1;);
y0;
};
Vec公司(邮编:A286781_序列号(20,1)
(平价)
A000699号_序号(N)={
my(a=向量(N));a[1]=1;
对于(n=2,n,a[n]=和(k=1,n-1,(2*k-1)*a[k]*a[n-k]);a;
};
邮编:A286794_序列(N)=向量((1-1/序列(A000699号_顺序(N+1)))/x);
邮编:A286794_顺序(20)
|