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

%S 1,4,1,4,8,1,4,12,12,14,16,24,16,14,20,40,20,14,24,60,80,24，

%电话：1,4,28,84140140,84,28,1,4,32112224280224112,32,1,4,136144336，

%电话：504504336144,36,1

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

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

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

%F第n行总和=A036563（n+2）=2^（n+2）-3。

%F二元o.g.F.：和{n，k>=0}T（n，k）*x^n*y^k=（1+3*x-x*y）/（1-x*y_Petros Hadjicostas，2021年2月20日

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

%e 1；

%e 4，1；

%e 4、8、1；

%e 4、12、12、1；

%e 4、16、24、16、1；

%e 4、20、40、40、20、1；

%e。。。

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

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

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

%o（岩浆）[k eq n select 1 else 4*二项式（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：返回4*二项式（n，k）

%o[[T（n，k）代表k in（0..n）]代表n in（0..10）]

%o#_G.C.格鲁贝尔，2019年11月18日

%o（间隙）

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

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

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

%o fi；结束；

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

%Y参考A007318、A036563、A131110、A131111、A131113、A131114和A131115。

%K non，tabl，简单，少

%0、2

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