表[级数系数[积[(1+x^k)(1-x^(nk))/(1-x*k)(1+x^(nk))),{k,1,n}],{x,0,n}],{n,0,43}]
表[级数系数[乘积[(1+x^k)/(1-x^k),{k,1,n-1}],{x,0,n}],}n,0,43}]
连接[{1},表[SeriesCoefficient[EllipticTheta[4,0,x^n]/EllipticTheta[4,0,x],{x,0,n}],{n,43}]]
nmax=43;系数列表[系列[1/椭圆Theta[4,0,x]-2 x/(1-x),{x,0,nmax}],x]
|