%I#9 2022年9月8日08:45:41

%S 1,1,1,1,8,1,15,1,1,22,46,22,1,29,94,94,29,1,1,36159248159，

%电话：36,1,1,43241515515241,43,1,503409261270926340,50,1,1,57，

%电话：45615122646461512456,57,1,1,6458923044914627249142304589,64,1

%N三角形，按行读取，T（N，k，m）=（m*（N-k）+1）*二项式（N-1，k-1）+。

%C行总和是：{1，2，10，32，92，248，640，1600，3904，9344，22016，…}。

%F T（n，k，m）=（m*（n-k）+1）*二项式（n-1，k-1）+。

%e三角形开头为：

%e 1；

%e 1，1；

%e 1、8、1；

%e 1、15、15、1；

%e 1、22、46、22、1；

%e 1、29、94、94、29、1；

%e 1、36、159、248、159和36、1；

%e第1、43、241、515、515和241、43和1条；

%e 1、50、340、926、1270、926、340、50、1；

%e 1、57/456、1512、2646、2646、1512、456、57、1；

%电子邮箱：1、64、589、2304、4914、6272、4914，2304、589，64，1；

%p T:=proc（n，k，m）选项记忆；

%p如果k=0且n=0，则为1

%p else（m*（n-k）+1）*二项式（n-1，k-1）+

%p fi；结束时间：

%p序列（序列（T（n，k，2），k=0..n），n=0..10）；#_G.C.Greubel，2019年11月29日

%t t[n_，k_，m_]：=如果[n==0&&k==0，1，（m*（n-k）+1）*二项式[n-1，k-1]+（m*k+1；表[T[n，k，2]，{n，0,10}，{k，0，n}]//Flatten（*由G.C.Greubel_修改，2019年11月29日*）

%o（PARI）T（n，k，m）=（m*（n-k）+1）*二项式（n-1，k-1）+_G.C.Greubel_，2019年11月29日

%o（岩浆）m:=2；[（m*（n-k）+1）*二项式（n-1，k-1）+_G.C.Greubel，2019年11月29日

%o（弧垂）m=2；[（m*（n-k）+1）*二项式（n-1，k-1）+

%o（间隙）m:=2；；平坦（列表（[0..10]，n->List（[0..n]，k->（m*（n-k）+1）*二项式（n-1，k-1）+（m*k+1）*二项式（n-1，k）+m*k*（n-k）*二项式（n-2，k-1））；#_G.C.Greubel，2019年11月29日

%Y参考A157169（m=1），该序列（m=2），A157171（m=3）。

%K nonn，表

%0、5

%A _Roger L.Bagula，2009年2月24日

%E编辑：G.C.Greubel，2019年11月29日