%2018年8月27日05:46:31
%S 1,1,5,14,421032896901771420610142234495478786123528279480,
%电话:619206136640529690716425534137277752918755561439660128620370,
%电话:267044225515276791130806020230674633546760696069432394144189202664283776372312
%N乘积展开式_{k>=1}1/(1-k*x^k)^k。
%C该序列由A266964中的广义Euler变换获得,取f(n)=n,g(n)=n.-Seiichi Manyama_,2017年11月18日
%H Seiichi Manyama,<a href=“/A266941/b266941.txt”>n,a(n)表,n=0..6086</a>(术语0..1000来自Vaclav Kotesovic)
%F From _Vaclav Kotesovec_,2016年1月8日:(开始)
%F a(n)~c*n^2*3^(n/3),其中
%F c=3278974684037157122864203.0219826191097769724324194914093…如果mod(n,3)=0
%F c=3278974684037157122864202.999526122508793149896683112820555…如果mod(n,3)=1
%F c=3278974684037157122864203.001231135511323719311281438384212…如果mod(n,3)=2
%F(完)
%F在封闭形式中,a(n)~(Product_{k>=4}((1-k/3^(k/3))^(-k))/(1-2/3^(2/3))^2*(1-1/3^(2/3)^2*(1-(-1)^(2/3)^2) )*3^(n/3)*n^2/54.-_Vaclav Kotesovec_,2017年4月24日
%F a(0)=1和a(n)=(1/n)*Sum_{k=1..n}(Sum_{d|k}d^(2+k/d))*a(n-k),当n>0.-_Seiichi Manyama,2017年11月2日
%t nmax=40;系数列表[系列[积[1/(1-k*x^k)^k,{k,1,nmax}],{x,0,nmax{],x]
%t nmax=40;s=1-x;Do[s*=和[二项式[k,j]*(-1)^j*k^j*x^(j*k),{j,0,nmax/k}];s=展开[s];s=取[s,Min[nmax+1,指数[s,x]+1,长度[s]];,{k,2,nmax}];系数列表[系列[1/s,{x,0,nmax}],x](*_Vaclav Kotesovec_,2018年8月27日*)
%Y参见A006906、A265758、A266891、A266942、A266964、A266971。
%K nonn公司
%0、3
%A _ Vaclav Kotesovec_,2016年1月6日
|