%I#10 2018年5月27日02:29:15

%编号：1,305367473902239951911035480410377930910166540539840330258，

%电话94884791378917358452410893860873819988139900141632，

%电话：8823884259161868991438542446875934342787603867019914778890694325771075362159346749817011976548511953973463

%N在{1,2，…，N}的所有集合分区中第七个块的大小之和。

%H Alois P.Heinz，n的表，n的a（n）=7..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<8，[p[1]，p[2]+p[1]*x^j]，p））(

%p b（n-1，max（m，j）），j=1..m+1））

%p端：

%p a:=n->系数（b（n，0）[2]，x，7）：

%p序列（a（n），n=7..30）；

%tb[n_，m_]：=b[n，m]=如果[n==0，{1，0}，Sum[Function[p，If[j<8，{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，7]；

%t表[a[n]，{n，7，30}]（*_Jean-François Alcover_，2018年5月27日，翻译自Maple*）

%A270236的Y列p=7。

%K nonn公司

%O 7.2号机组

%A _Alois P.Heinz，2016年3月18日