%I#15 2021年9月8日07:11:13

%S 1,0,1,0,2,1,0,6,1,0,4,42,8,1,012030,80,10,1,07202970860120，

%电话：12,1,0504030240102901540168,14,1,0403203424013608021490，

%U 2464224,16,1,0362880437724019773603267970388083696288,18,1

%N最大块大小等于k的[N]的有序集划分的数目T（N，k）；三角形T（n，k），n>=0，0<=k<=n，按行读取。

%H Alois P.Heinz，行n=0..140，扁平</a>

%例如，对于列k>0：1/（1-Sum_{i=1..k}x^i/i！）-1/（1-Sum-{i=1.k-1}x^i！）。

%对于k>0，F T（n，k）=A276921（n，k）-A276921（n，k-1）。T（n，0）=A000007（0）。

%e三角形T（n，k）开始：

%e 1；

%e 0，1；

%e 0、2、1；

%e 0、6、6、1；

%e 0、24、42、8、1；

%e 0、120、330、80、10、1；

%e 0、720、2970、860、120、12、1；

%e编号：05040、30240、10290、1540、168、14、1；

%电子邮箱：040320、345240、136080、21490、2464、224、16、1；

%e。。。

%p A:=proc（n，k）选项记忆`如果`（n=0，1，添加(

%p A（n-i，k）*二项式（n，i），i=1..分钟（n，k））

%p端：

%p T：=（n，k）->A（n，k）-`如果`（k=0，0，A（n、k-1））：

%p seq（seq（T（n，k），k=0..n），n=0..10）；

%tA[n_，k_]：=A[n，k]=如果[n==0，1，和[A[n-i，k]*二项式[n，i]，{i，1，最小值[n，k]}]；T[n_，k_]：=A[n，k]-如果[k==0，0，A[n、k-1]]；表[T[n，k]，{n，0，10}，{k，0，n}]//Flatten（*_Jean-François Alcover_，2017年2月11日，翻译自Maple*）

%Y列k=0-10给出：A000007、A000142（对于n>0）、A320758、A32075%、A320760、A32076、A3207.61、A320772、A3201763、A320744、A320795、A320786。

%Y行总和表示A000670。

%Y T（2n，n）给出A276923。

%Y参考A080510、A276921。

%K nonn，表

%0、5

%A _Alois P.Heinz，2016年9月22日