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

%S 1,5,1,5,10,15,15,15，1,5,20,30,20,15,25,50,25,15,30,75100,75，

%电话：30.1,5,35105175105,35,1,5,40140280350240,40,1,5,1,45，

%电话：180420630630420180,45,1

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

%C行总和=A048487:（1，6，16，36，76，156，…）。

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

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

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

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

%e 1；

%e 5，1；

%e 5、10、1；

%e五、十五、十五、一；

%e 5、20、30、20、1；

%e 5、25、50、50、25、1；

%e 5、30、75、100、75、30、1；

%e。。。

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

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

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

%o（岩浆）[k eq n选择1其他5*二项式（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：返回5*二项式（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；

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

%o fi；结束；

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

%Y参考A007318、A048487、A131110、A131112、A131114、A131115。

%K non，tabl，简单，少

%0、2

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