|
nmax=22；系数列表[Series[Product[1/（1-x^k）^（Exp[-x]/k），{k，1，nmax}]，{x，0，nmax{]，x]Range[0，nmax]！
nmax=22；系数列表[Series[Exp[Exp[-x]Sum[DivisorSigma[0，k]x^k/k，{k，1，nmax}]]，{x，0，nmax{]，x]Range[0，nmax]！
A002744号[n_]：=和[（-1）^（n-k）二项式[n，k]除数Sigma[0，k]（k-1）！，{k，1，n}]；a[0]=1；a[n]：=a[n]=和[二项式[n-1，k-1]A002744号[k] a[n-k]，{k，1，n}]；表[a[n]，{n，0，22}]
| 