%I#6 2017年1月24日09:58:55
%S 1,0,0,1,0,0,0,0,00,0',0,0,
%T 2,0,0,1,1,0,3,0,2,1,0,3,0,3,1,0,1,0,0,0,3,1,0,1,4,0,4,1,0,1,4,0,0,5,1,0,
%U 2,5,0,0,7,1,0,3,5,0,8,1,0,5,6,0,1
%N乘积{k>=1}的展开(1+x^(7*k-4))。
%H Vaclav Kotesovec,<a href=“/A281457/b281457.txt”>n表,n=0..10000时的a(n)</a>
%F a(n)~exp(平方(n/21)*Pi)/(2^(10/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-4))),{k,1,nmax}],{x,0,nmax{],x]
%t nmax=100;poly=常量数组[0,nmax+1];poly〔〔1〕〕=1;poly[2]]=0;Do[如果[Mod[k,7]==3,Do[poly[[j+1]]+=poly[[j-k+1]],{j,nmax,k,-1}];],{k,2,nmax}];聚
%Y参见A109705、A281245、A28.1455、A2181456、A281458、A280457。
%K nonn公司
%O 0,28号
%A _ Vaclav Kotesovec_,2017年1月22日
|