%I#23 2021年8月19日18:24:34

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

%T 1,1,1,4,5,5,3,2,1,1,0,1,4,7,6,5,2,1,0,0,5,8,9,7,5,1,1,0,1，

%U 4,10,11,10,7,5,3,2,1,1,0,0,5,11,15,13,11,7,5,12,1,1,1

%N将N划分成k个非零十进制回文的N个数T（N，k）；三角形T（n，k），n>=0，0<=k<=n，按行读取。

%C T（10.1）=0时，首先与A008284和A072233不同。

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

%F T（n，k）=[x^ny^k]1/产品{j>=2}（1-y*x^A002113（j））。

%F和{k=0..3}T（n，k）=A261132（n）。

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

%e 1；

%e 0，1；

%e 0，1，1；

%e 0，1，1；

%e 0、1、2、1、1；

%e 0、1、2、2、1、1；

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

%e 0，1，3，4，3，2，1，1；

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

%e 0、1、4、7、6、5、3、2、1、1；

%e 0、0、5、8、9、7、5、3、2、1、1；

%e 0、1、4、10、11、10、7、5、3、2、1、1；

%e 0、0、5、11、15、13、11、7、5、3、2、1、1；

%e。。。

%p p:=proc（n）选项记忆；局部i，s；s： =“”||n；

%p表示i到iquo（长度，2）do如果

%ps[i]<>s[-i]然后返回假fiod；真的

%p端：

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

%p `if`（p（n），n，h（n-1））

%p端：

%p b:=proc（n，i）选项记住`如果`（n=0或i=1，x^n，

%p b（n，h（i-1））+展开（x*b（n-i，h（min（n-i））））

%p端：

%pT:=n->（p->seq（系数（p，x，i），i=0..n））（b（n，h（n）））：

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

%Y列k=0-10表示：A000007、A136522（n>0）、A319468、A261131、A319469、A319470、A319471、A319472、A319473、A319474、A319475。

%Y行总和表示A091580。

%Y T（2n，n）表示A319454。

%Y参考A002113、A008284、A072233、A261132。

%K nonn，tabl，基础

%O 0,13号

%A _Alois P.Heinz，2018年9月19日