|
%I#28 2023年12月2日09:20:28
%S 1,2,1,10,9,2,50,65,28,4250425270,76,8125026252200920192,16，
%电话：6250156251625090002800464,3231250906251125007750032000，
%电话：79201088，6415625051562574375061250031500010360212802496128
%N三角形A193726的镜子。
%C该三角形是通过颠倒三角形A193726的行获得的。
%C三角形T（n，k），按行读取，由（2,3,0,0,0，0,0,1,0，…）DELTA（1,1,0,0_0,0,0-0，……）给出，其中DELTA是A084938中定义的运算符_Philippe Deléham，2011年10月5日
%H G.C.Greubel，<a href=“/A193727/b193727.txt”>三角形的n=0..50行，展平</a>
%F T（n，k）=A193726（n，n-k）。
%F T（n，k）=2*T（n-1，k-1）+5*T（n-1，k），T（0,0）=T（1,1）=1，T（1,0）=2_Philippe Deléham，2011年10月5日
%F G.F.：（1-3*x-x*y）/（1-5*x-2*x*y_R.J.Mathar，2015年8月11日
%F From _G.C.Greubel，2023年12月2日：（开始）
%F T（n，0）=A020699（n）。
%F T（n，1）=A081040（n-1）。
%F T（n，n）=A011782（n）。
%F和{k=0..n}T（n，k）=A169634（n-1）+（4/7）*[n=0]。
%F和{k=0..n}（-1）^k*T（n，k）=A133494（n）。
%F总和{k=0..楼层（n/2）}T（n-k，k）=2*A015535（n）+A015535[n-1）+（1/2）*[n=0]。
%F总和{k=0..楼层（n/2）}（-1）^k*T（n-k，k）=2*A107839（n-1）-A107839（n-2）+（1/2）*[n=0]。（结束）
%e前六行：
%e 1；
%e 2，1；
%e 10、9、2；
%e 50、65、28、4；
%e 250、425、270、76、8；
%e 1250、2625、2200、920、192；16；
%t（*第一个程序*）
%tz=8；a=1；b=2；c=1；d=2；
%tp[n，x_]：=（a*x+b）^n；q[n，x_]：=（c*x+d）^n
%t t[n_，k_]：=系数[p[n，x]，x^k]；t[n，0]：=p[n，x]/。x->0；
%tw[n，x_]：=和[t[n，k]*q[n+1-k，x]，{k，0，n}]；w[-1，x_]：=1
%t g[n_]：=系数列表[w[n，x]，{x}]
%t表格形式[表格[反向[g[n]]，{n，-1，z}]]
%t压扁[表[反向[g[n]]，{n，-1，z}]]（*A193726*）
%t表格形式[表格[g[n]，{n，-1，z}]]
%t压扁[表[g[n]，{n，-1，z}]]（*A193727*）
%t（*第二个程序*）
%tT[n_，k_]：=t[n，k]=如果[k<0|k>n，0，如果[n<2，n-k+1，5*t[n-1，k]+2*t[n-1，k-1]]；
%t表[t[n，k]，{n，0,12}，{k，0，n}]//扁平（*_G.C.格鲁贝尔，2023年12月2日*）
%o（岩浆）
%o函数T（n，k）//T=A193727
%o如果k lt 0或k gt n，则返回0；
%o elif n lt 2然后返回n-k+1；
%否则返回5*T（n-1，k）+2*T（n-1，k-1）；
%o结束条件：；
%o端函数；
%o[T（n，k）：[0..n]中的k，[0..12]]中的n；//_G.C.Greubel，2023年12月2日
%o（SageMath）
%o定义T（n，k）：#T=A193727
%o如果（k<0或k>n）：返回0
%o elif（n<2）：返回n-k+1
%o其他：返回5*T（n-1，k）+2*T（n-1，k-1）
%o压扁（[[T（n，k）代表k范围（n+1）]代表n范围（13）]）#_G.C.Greubel_，2023年12月2日
%Y参见A011782、A015535、A020699、A081040、A084938。
%Y参见A107839、A133494、A169634、A193722、A19372。
%K nonn，表
%0、2
%A_Clark Kimberling_，2011年8月4日
| 