nmax=22;系数列表[系列[产品[产品[(1+x^(ijk))^(1/(ij k)),{i,1,nmax}],{j,1,nmax}]!
nmax=22;系数列表[Series[Product[(1+x^k)^(Sum[DivisorSigma[0,d],{d,Divisors[k]}]/k),{k,1,nmax}],{x,0,nmax{],x]Range[0,nmax]!
a[n]:=a[n]=(n-1)!求和[Sum[(-1)^(k/d+1)Sum[DivisorSigma[0,j],{j,Divisors[d]}],{d,Divisor[k]}]a[n-k]/(n-k)!,{k,1,n}];a[0]=1;表[a[n],{n,0,22}]
|