%I#9 2020年12月13日09:31:42
%S 5,0,6,6,13,18,34,35,66,8212015423028640851469988611891485,
%电话:1949244131363906498061597757955511908146001806222000,
%电话:2702832804399648327586147048985036101876122284145943174419207354246804
%N N的所有分区中的部件数,最大重数为5。
%H Alois P.Heinz,n的表格,n=5..1000时的a(n)</a>
%F a(n)~log(6)*exp(Pi*sqrt(5*n)/3)/(2*Pi*5^(1/4)*n^(1/4))_瓦茨拉夫·科特索维奇,2018年10月25日
%pb:=proc(n,i,k)选项记忆`如果`(n=0,[1,0],`如果`(i<1,0,
%p加((1->l+[0,l[1]*j])(b(n-i*j,i-1,k)),j=0..分钟(n/i,k)
%p端:
%pa:=n->(k->(b(n$2,k)-b(n$2,k-1))[2])(5):
%p序列(a(n),n=5..50);
%tb[n_,i_,k_]:=b[n,i,k]=如果[n==0,{1,0},如果[i<1,{0,0},和[Function[l,{0,l[1]]j}+l][b[n-ij,i-1,k]],{j,0,Min[n/i,k]}]];
%t a[n]:=带[{k=5},(b[n,n,k]-b[n,n,k-1])[[2]]];
%t a/@范围[5,50](*_Jean-François Alcover_,2020年12月13日,在_Alois P.Heinz_*之后)
%A213177的Y列k=5。
%K nonn公司
%O 5、1
%A _Alois P.Heinz,2018年10月11日
|