%I#23 2015年2月11日11:14:19

%S 1,1,1,0,1,2,1,0,1,1,0,1,0,3,2,0,1,3,4,1,4,3,0,1,2,1,6,9,3,5,4,0,1，

%电话：4,9,6,11,16,6,6,5,0,1,1,3,3,11,24,18,19,25,10,7,6,0,15,16,18,28,51，

%U 40,31,36,15,8,7,0,1,1,4,6,19,51,60,65,95,75,48,49,21,9,8,0,1

%N N的组成数T（N，k），其中k是奇数部分数与偶数部分数之差；三角形T（n，k），n>=0，-楼层（n/2）+（n mod 2）<=k<=n，按行读取。

%C T（n，k）=T（n+k，-k）。

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

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

%电子邮箱：-5-4-3-2-1 0 1 2 3 4 5 6 7 8 9 10。。。

%e（电子）+-----+---------------------------------------------------------

%e:0:1；

%e:1:1；

%e:2:1,0,0,1；

%e:3:2,1,0,1；

%e:4:1、1、0、3、2、0、1；

%e:5:3、4、1、4、3、0、1；

%e:6:1、2、1、6、9、3、5、4、0、1；

%e:7:4、9、6、11、16、6、6、5、0、1；

%电子邮箱：8:1、3、3、11、24、18、19、25、10、7、6、0、1；

%电子邮箱：9:5、16、18、28、51、40、31、36、15、8、7、0、1；

%电子邮箱：10:1、4、6、19、51、60、65、95、75、48、49、21、9、8、0、1；

%pb:=proc（n，i，p）选项记忆`if`（n=0，p！，`if`（i<1，0，展开(

%p加（x^（j*（2*irem（i，2）-1））*b（n-i*j，i-1，p+j）/j！，j=0..n/i）））

%p端：

%p T：=n->（p->seq（系数（p，x，i），i=l度（p）。。度（p））（b（n$2,0））：

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

%tb[n_，i_，p_]：=b[n，i，p]=如果[n==0，p！，如果[i<1，0，展开[Sum[x^（j*（2*Mod[i，2]-1））*b[n-i*j，i-1，p+j]/j！，{j，0，n/i}]]]；T[n_]：=函数[{p}，表[系数[p，x，i]，{i，指数[p，x，Min]，指数[p，x]}][b[n，n，0]]；表[T[n]，{n，0，20}]//扁平（*_Jean-François Alcover_，2015年2月11日，在_Alois P.Heinz_*之后）

%Y列k=0-10表示：A098123、A242499、A242500、A242501、A242502、A24250、A24254、A24205、A24256、A242107、A242588。

%Y行总和表示A011782。

%Y对角线包括：A000012、A000004、A001477、A000217、A000290、A180415。

%Y行长度表示A016777（楼层（n/2））。

%Y参考A240009、A240021。

%K nonn，标签

%0、7

%A _Alois P.Heinz，2014年5月16日