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

%S 1,6,1,6,12,16,18,16,24,36,24,16,30,60,60,30,1,6,36,90120,90，

%电话：36,1,6,42126210126,42,6,48168336420336168,48,6,54，

%电话：216504756504216,54,1

%N T（N，k）=6*二项式（N，k）-5*I（N，克），其中I是单位矩阵；行读取的三角形T（n>=0和0<=k<=n）。

%C行总和为A048488。

%H G.C.Greubel，<a href=“/A131114/b131114.txt”>三角形的n=0..100行，扁平</a>

%F T（n，k）=6*A007318（n，k）-5*I（n，克），其中A007318=帕斯卡三角形，I=单位矩阵。

%F二元o.g.F.：和{n，k>=0}T（n，k）*x^n*y^k=（1+5*x-x*y）/（1-x*y。

%e三角形T（n，k）（行n>=0，列k=0..n）开始：

%e 1；

%e 6，1；

%e 6、12、1；

%e第6、18、18、1条；

%e第6、24、36、24、1条；

%e第6、30、60、60、30、1条；

%e第6、36、90、120、90、36、1条；

%e。。。

%p seq（seq（`if`（k=n，1，6*二项式（n，k）），k=0..n），n=0..10）；#_G.C.Greubel_，2019年11月18日

%t表[如果[k==n，1，6*二项式[n，k]]，{n，0,10}，{k，0，n}]//展平（*_G.C.Greubel_，2019年11月18日*）

%o（PARI）T（n，k）=如果（k==n，1，6*二项式（n，k））；\\_G.C.Greubel，2019年11月18日

%o（岩浆）[k eq n选择1其他6*二项式（n，k）：k in[0..n]，n in[0..10]]；//_G.C.Greubel，2019年11月18日

%o（圣人）

%o定义T（n，k）：

%o如果（k==n）：返回1

%o else：返回6*二项式（n，k）

%o[[T（n，k）for k in（0..n）]for n in（0..10）]#_G.C.Greubel_，2019年11月18日

%o（间隙）

%o T:=函数（n，k）

%o如果k=n，则返回1；

%否则返回6*二项式（n，k）；

%o fi；结束；

%o平面（列表（[0..10]，n->List（[0..n]，k->T（n，k）））；#_G.C.Greubel，2019年11月18日

%Y参考A007318、A048488、A131110、A131111、A131112、A131113、A131115。

%K nonn，表格，简单，较少

%0、2

%A _加里·W·亚当森，2007年6月15日