nmax=22；系数列表[系列[产品[（1+（Exp[x]-1）^k/k），{k，1，nmax}]，{x，0，nmax{]，x]范围[0，nmax]！
nmax=22；系数列表[Series[Exp[Sum[Sum[（-1）^（k+1））（Exp[x]-1）^（j k）/（k j ^ k），{j，1，nmax}]，{k，1，nmax}]]，{x，0，nmax}]，x]Range[0，nmax]！
b[0]=1；b[n]：=b[n]=和[（n-1）！/（n-k）！除数和[k，（-#）^（1-k/#）&]b[n-k]，{k，1，n}]；a[n]：=a[n]=总和[StirlingS2[n，k]b[k]，{k，0，n}]；表[a[n]，{n，0，22}]
