提出
经核准的
编辑
最大值=11；y0[x_，t]=1；y1[x_，t]=0；对于[n=1，n<=最大，n++，y1[x_，t_]=（1+x*y0[x，t]+2*x^2*D[y0[x，t]，x]）*（1-x*y0[x，t]*（1-t））/（1-x*y0[x-t]）^2+O[x]^n//正常；y0[x_，t_]=y1[x，t]//简化]；
s=y0[x，t]；
se=（1+x*s+2*x^2*D[s，x]）/（1-x*s）^2+O[x]^max//正常；
row[n]：=row[n]=系数列表[系数[se，x，n]，t]；
T[0,0]=1；T[n_，k_]：=行[n][[k+1]]；
表[T[n，k]，{n，0，max-1}，{k，0，If[n==0，0，n-1]}]//展平(*Jean-François Alcover公司2017年5月19日，改编自PARI*）
非n,表标签,改变
电话：286781_ser（N,t吨='t吨) = {
};
A286783型_ser（N，t=t）={
我的=电话：286781_ser（N，t））；（1+x*s+2*x^2*导数（s，'x））/（1-x*s）^2；
A286783型_ser（N）=我的=电话：286781_ser（N））；（1+x*s+2*x^2*导数（s，'x））/（1-x*s）^2；
米歇尔·马库斯：关键字选项卡？
A001147号（n+1）=T（n，0），A001700号（n） =P_n（-1），A286794型（n） =P_n（1）。
