%I#6 2017年1月24日09:59:03
%S 1,0,0,0,1,0,0,0,0'0,00,0',0,1,0,0,0,1,0,0,
%温度0,0,2,0,0,1,0,0',0,3,0,0,1,2,0,3',0,12,0,2,3,0,1,1,3,0,4,0,4,0,1,
%U 5,0,0,5,2,0,1,7,0,0.5,3,0,1,8,0,6,5
%N乘积{k>=1}的展开(1+x^(7*k-3))。
%H Vaclav Kotesovec,<a href=“/A281456/b281456.txt”>n表,n=0..10000时的a(n)</a>
%F a(n)~exp(平方(n/21)*Pi)/(2^(11/7)*21^(1/4)*n^(3/4))*(1-(3*sqrt(21)/(8*Pi_Vaclav Kotesovec_,2017年1月22日,2017年延长至1月24日
%t nmax=100;系数列表[系列[乘积[(1+x^(7*k-3)),{k,1,nmax}],{x,0,nmax{],x]
%t nmax=100;poly=常量数组[0,nmax+1];聚[1]]=1;poly〔〔2〕〕=0;Do[如果[Mod[k,7]==4,Do[poly[[j+1]]+=poly[[j-k+1]],{j,nmax,k,-1}];],{k,2,nmax}];聚
%Y参见A109706、A281245、A281455、A2181457、A28145%、A280457。
%K nonn公司
%0、30
%A _ Vaclav Kotesovec_,2017年1月22日
|