%I#10 2018年5月29日09:19:12
%S 1,0,1,1,2,2,4,4,7,10,14,16,25,30,42,53,71,88121148195241312384,
%电话:4946057659431179144117962181269432734011484959227130,
%电话:86521039812552150211807221558258163072936649434805170561163
%N N的所有分区中重数为9的部分的总和。
%H Alois P.Heinz,n的表格,n=9..1000的a(n)</a>
%F G.F.:(x^9/(1-x^9)^2-x^10/(1-x ^10)^2)/产品{i>=1}(1-x^i)。
%F a(n)~19*sqrt(3)*exp(Pi*sqort(2*n/3))/(16200*Pi^2)_瓦茨拉夫·科特索维奇,2018年5月29日
%p b:=proc(n,p)选项记住`如果`(n=0,[1,0],`如果`(p<1,[0,0],
%p加((1->`如果`(m=9,l+[0,l[1]*p],l))(b(n-p*m,p-1)),m=0..n/p))
%p端:
%pa:=n->b(n,n)[2]:
%p序列(a(n),n=9..60);
%tb[n_,p_]:=b[n,p]=如果[n==0&&p==0,{1,0},如果[p==0,数组[0&,n+2],和[Function[l,ReplacePart[l,m+2->p*l[[1]]+l[[m+2]]][Join[b[n-p*m,p-1],数组[0,p*m]],{m,0,n/p}]];a[n]:=b[n,n][[11]];表[a[n],{n,9,60}](*_Jean-François Alcover_,2014年1月24日,摘自_Alois P.Heinz_*)
%A222730的Y列k=9。
%K nonn公司
%O 9.5号
%A _Alois P.Heinz,2013年3月3日
|