%I#11 2020年4月27日05:55:13

%S 1,1,1,2,0,1,2,0,2,7,2,02,6,1,4,6,2,12,24,3,8,0,8,32,6,2,13,26,6，

%电话：34,36,0,32150,3,20,50,14,54126,32,32,12,55160,78122,44174,4,72，

%U 294,36201896128，62180176164198852110320159212414

%N将N的组合（有序分区）划分为不同的三角形数。

%H Alois P.Heinz，n的表格，n=0..20000时的a（n）</a>

%H<a href=“/index/Com#comp”>与合成相关的序列的索引条目</a>

%e a（10）=7，因为我们有[10]，[6，3，1]，[6,1，3]，[3,6,1]，[3，1,6]，[1，6,3]和[1，3,6]。

%ph:=proc（n）选项记忆`如果`（n＜1，

%p `if`（issqr（8*n+1），1+h（n-1），h（n-1））

%p端：

%pb:=proc（n，i，p）选项记忆；（t->

%p`if`（t*（i+2）/3<n，0，`如果`（n=0，p！，b（n，i-1，p）+

%p`如果`（t>n，0，b（n-t，i-1，p+1）））（（i*（i+1）/2））

%p端：

%pa:=n->b（n，h（n），0）：

%p序列（a（n），n=0..73）；#_阿洛伊斯·海因茨，2020年1月31日

%t h[n_]：=h[n]=如果[n<1，0，如果[IntegerQ@Sqrt[8n+1]，1+h[n-1]，h[n-1]]；

%tb[n_，i_，p_]：=b[n，i，p]=函数[t，如果[t（i+2）/3<n，0，如果[n==0，p！，b[n、i-1，p]+如果[t>n，0、b[n-t，i-1，p+1]]][（i（i+1）/2）]；

%t a[n]：=b[n，h[n]，0]；

%t a/@范围[0，73]（*_Jean-François Alcover_，2020年4月27日，在_Alois P.Heinz_*之后）

%Y参见A000217、A023361、A024940、A032020、A032021、A032022、A218396、A219107、A331844、A3318.45、A33184、A331877。

%K nonn公司

%0、5

%A _Ilya Gutkovskiy_，2020年1月29日