%I#27 2023年7月14日17:15:00

%S 1,0,0,1,0,1,1,0,0,1,0,1,1,1,2,0,1,2,1,0,1,3,0,13,1,01,4,0,1，

%温度5,6,0,1,5,7,0,16,9,1,0,1.6,11,4,0,17,13,7,15,11,8,15，

%U 0,1,8,20,19,0,1,9,23,25,1,0,1，9,26,30,5

%N将N划分为k个部分的数目T（N，k），使得每个第i个最小部分（以多重性计数）不同于i；三角形T（n，k），n>=0，0<=k<=楼层（（sqrt（9+8*n）-3）/2）按行读取。

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

%e T（10.1）=1:[10]。

%e T（10,2）=4:[5,5]，[4,6]，[3,7]，[2,8]。

%e T（10,3）=3:[3,3,4]、[2,4,4]和[2,3,5]。

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

%e 1；

%e 0；

%e 0，1；

%e 0，1；

%e 0，1；

%e 0，1，1；

%e 0、1、2；

%e 0、1、2；

%e 0、1、3；

%e 0、1、3、1；

%e 0、1、4、3；

%e 0、1、4、4；

%e 0、1、5、6；

%e 0、1、5、7；

%e 0、1、6、9、1；

%e。。。

%p b:=proc（n，i）选项记忆`如果`（n=0，1，

%p `if`（i<1，0，b（n，i-1）+` if`（i>n，0，（p->展开(

%p x*（p-系数（p，x，i-1）*x^（i-1））（b（n-i，i）））

%p端：

%p T：=n->（p->seq（系数（p，x，i），i=0.最大值（0，度（p）））（b（n$2））：

%p序列（T（n），n=0..30）；

%tb[n_，i_]：=b[n，i]=如果[n==0，1，如果[i<1，0，b[n、i-1]+如果[i>n，0，函数[p，展开[x*（p-系数[p，x，i-1]*x^（i-1））][b[n-i，i]]]；T[n_]：=函数[p，表[系数[p，x，i]，{i，0，Max[0，指数[p，x]]][b[n，n]]；表[T[n]，{n，0，30}]//Flatten（*_Jean-François Alcover_，2017年2月8日，翻译自Maple*）

%Y列k=0-10给出：A000007、A000012（对于n>1）、A004526（n-2）（对于n>4）、A244239、A244240、A244241、A24424、A24443、A2444424、A2 44245、A24424.5、A244 246。

%Y行总和为A238394。

%Y参考A052146。

%K nonn，tabf，看

%O 0,14号

%阿洛伊斯·海因茨，2014年2月26日