%I#10 2018年5月27日02:29:29
%S 1,47126725820443249678295737722127466137116262852622,
%电话:20115025136024333944899742899404743843434242194356303003,
%电话:40192848580430114716978667719438955500430637916234566243004317795978312450922352428249435956075419339524
%N{1,2,…,N}的所有集合分区中第九个块的大小之和。
%H Alois P.Heinz,n的表,n的a(n)=9..575</a>
%H维基百科,<a href=“https://en.wikipedia.org/wiki/Partition_of_a_set(英文)“>集合的分区</a>
%p b:=proc(n,m)选项记住`如果`(n=0,[1,0],
%p加((p->`如果`(j<10,[p[1],p[2]+p[1]*x^j],p))(
%p b(n-1,最大值(m,j)),j=1..m+1))
%p端:
%p a:=n->系数(b(n,0)[2],x,9):
%p序列(a(n),n=9..30);
%tb[n_,m_]:=b[n,m]=如果[n==0,{1,0},Sum[Function[p,If[j<10,{p[[1]],p[[2]]+p[[1]]*x^j},p]][b[n-1,Max[m,j]],{j,1,m+1}]];
%t a[n_]:=系数[b[n,0][2]],x,9];
%t表[a[n],{n,9,30}](*_Jean-François Alcover_,2018年5月27日,翻译自Maple*)
%A270236的Y列p=9。
%K nonn公司
%O 9,2号机组
%A _Alois P.Heinz,2016年3月18日
|