%I#8 2021年4月24日20:45:09

%编号：1616213451009672973531015398476230987321248303940，

%电话：203677898017044330217145588640408127294021774711434350878640，

%电话：1058492406537921011701166471075998795895212492101765834737586068106836560297649791511534318293877771406

%N当按长度递减排序块时，[N]的所有集合分区的第五个块中的项目数。

%H Alois P.Heinz，n的表，n的a（n）=5..576</a>

%H维基百科，<a href=“https://en.wikipedia.org/wiki/Partition_of_a_set（英文）“>集合的分区</a>

%pb:=proc（n，i，t）选项记忆`如果`（n=0，[1,0]，`如果`（i<1，0，

%p加（（p->p+`如果`（t>0且t-j<1，[0，p[1]*i]，0））(

%p组合[多项式]（n，i$j，n-i*j）/j*

%p b（n-i*j，最小值（n-i*j，i-1），最大值（0，t-j）），j=0..n/i））

%p端：

%p a:=n->b（n$2，5）[2]：

%p序列（a（n），n=5..25）；

%t多项式[n_，k_List]：=n/次数@@（k！）；

%tb[n_，i_，t_]：=b[n，i，t]=如果[n==0，{1，0}，如果[i<1，{0，0}，和[

%t函数[p，p+如果[t>0&&t-j<1，{0，p[[1]]*i}，{0,0}]][

%t多项式[n，追加[Table[i，{j}]，n-i*j]]/j*

%t b[n-i*j，最小值[n-i*j，i-1]，最大值[0，t-j]]，{j，0，n/i}]]；

%ta[n]：=b[n，n，5][2]；

%t a/@Range[5，25]（*_Jean-François Alcover_，2021年4月24日，以_Alois P.Heinz_*命名）

%A319375的Y列k=5。

%K nonn公司

%O 5,2号机组

%A _Alois P.Heinz，2020年3月6日