用户:Peter Luschny/SeidelTriangles
目录
1 加泰罗尼亚-塞德尔连接 1.1 一些条目与 赛德尔变换及其变体 1.2 加泰罗尼亚三角 1.3 加泰罗尼亚数字(A000108) 1.4 加泰罗尼亚数字的第一个差异(A000245) 1.5 q-q=-1的目录编号(A090192) 1.6 加泰罗尼亚数字。 (A126120) 1.7 1-x的逆Chebyshev变换(A099363) 1.8 小薛定谔数(A001003) 1.9 大薛定谔数(A006318) 1.10 格子中的皇家路径(大薛定谔的卷积 数字)( A006319号 ). 1.11 大薛定谔数的部分和(A086616) 1.12 大薛定谔数减1(A035011) 1.13 切比雪夫U多项式中x的幂 ( A039598号 , A039599号 ) 1.14 Paul Barry的两个Riordan阵列(A165621、A112554)
加泰罗尼亚-塞德尔连接
加泰罗尼亚三角
定义赛德尔加泰罗尼亚三角(n): D=[0]*((n+5)//2); D[1]=1 b=正确; h=1 对于范围(n)内的i: 如果b: 对于范围(h,0,-1)中的k:D[k]+=D[k-1] h+=1 其他: 对于范围(1,h,1)中的k:D[k]+=D[k+1] b=非b 打印(1..h-1)中z的[D[z]
塞德尔加泰罗尼亚三角(13) [1] [1] [1, 1] [2, 1] [2,3,1] [5, 4, 1] [5, 9, 5, 1] [14,14,6,1] [14, 28, 20, 7, 1] [42, 48, 27, 8, 1] [42,90,75,35,9,1] [132, 165, 110, 44, 10, 1] [132, 297, 275, 154, 54, 11, 1]
赛德尔加泰罗尼亚三角:=proc(n)局部d,b,i,h,k: d:=数组(0..iquo(n+4,2)); d[0]:=0; d[1]:=1; b:=真; 对于i从0到n do h:=iquo(i+4.2); d[h]:=0; 如果是b,那么 对于k从h-1乘以-1到1做d[k]:=d[k]+d[k-1]od; 其他 对于从1到h-1的k,求d[k]:=d[k]+d[k+1]od; fi; b:=不是b; 打印([i],seq(d[k],k=1..h-1)); od端:
加泰罗尼亚数字( A000108号 )
定义A000108_list(n): D=[0]*(n+1); D[1]=1 b=正确; h=1; R=[] 对于范围(2*n-1)中的i: 如果b: 对于范围(h,0,-1)中的k:D[k]+=D[k-1] h+=1; R追加(D[1]) 其他: 对于范围(1,h,1)中的k:D[k]+=D[k+1] b=非b 返回R
加泰罗尼亚数字的第一个差异( A000245型 )
定义A000245_list(n): D=[0]*(n+1); D[1]=1 b=错误; h=1; R=[] 对于范围(2*n-1)中的i: 如果b: 对于范围(h,0,-1)中的k:D[k]+=D[k-1] h+=1; R.append(D[2]) 其他: 对于范围(1,h,1)中的k:D[k]+=D[k+1] b=非b 返回R
q-q=-1的Catalan数( A090192号 )
定义A090192_list(n): D=[0]*(n+2); D[1]=1 b=正确; h=1; R=[] 对于范围(2*n-1)中的i: 如果b: 对于范围(h,0,-1)中的k:D[k]-=D[k-1] h+=1; R追加(D[1]) 其他: 对于范围(1,h,1)中的k:D[k]+=D[k+1] b=非b 返回R
加泰罗尼亚数字。 ( A126120号 )
定义A126120_list(n): D=[0]*(n+2); D[1]=1 b=正确; h=2; R=[] 对于范围(2*n-1)中的i: 如果b: 对于范围(h,0,-1)中的k:D[k]-=D[k-1] h+=1; R.append(绝对值(D[1])) 其他: 对于范围(1,h,1)中的k:D[k]+=D[k+1] b=非b 返回R
1-x的逆切比雪夫变换( A099363号 )
定义A099363_list(n): D=[0]*(n+2); D[1]=1 b=正确; h=2; R=[] 对于范围(2*n-1)中的i: 如果b: 对于范围(h,0,-1)中的k:D[k]-=D[k-1] h+=1; R.append((-1)^(h//2)*D[2]) 其他: 对于范围(1,h,1)中的k:D[k]+=D[k+1] b=非b 返回R
小薛定谔数( A001003级 )
定义A001003_list(n): D=[0]*(n+1); D[1]=1/2 b=正确; h=2; R=[1] 对于范围(2*n-2)中的i: 如果b: 对于范围(h,0,-1)中的k:D[k]+=D[k-1] h+=1; 其他: 对于范围(1,h,1)中的k:D[k]+=D[k-1] R.append(D[h-1]); b=非b 返回R
大Schröder数( A006318号 )
定义A006318_list(n): D=[0]*(n+1); D[1]=1 b=正确; h=1; R=[] 对于范围(2*n)内的i: 如果b: 对于范围(h,0,-1)中的k:D[k]+=D[k-1] h+=1; 其他: 对于范围(1,h,1)中的k:D[k]+=D[k-1] R.append(D[h-1]); b=非b 返回R
格子中的皇家路径(大薛定谔的卷积 数字)( A006319号 ).
定义A006319_list(n): D=[0]*(n+1); D[1]=1 b=正确; h=2; R=[1] 对于范围(2*n-2)中的i: 如果b: 对于范围(h,0,-1)中的k:D[k]+=D[k-1] h+=1; 其他: 对于范围(1,h,1)中的k:D[k]+=D[k-1] R.append(D[h-2]); b=非b 返回R
大Schröder数的部分和( A086616美元 )
定义A086616_list(n): D=[0]*(n+2); D[1]=1 b=正确; h=2; R=[] 对于范围(2*n)内的i: 如果b: 对于范围(h,0,-1)中的k:D[k]+=D[k-1] 其他: 对于范围(1,h,1)中的k:D[k]+=D[k-1] R.append(D[h-1]); h+=1; b=非b 返回R
大薛定谔数减1( A035011号 )
定义A035011_list(n): D=[0]*(n+2); D[1]=1 b=正确; h=2; R=[] 对于范围(2*n)内的i: 如果b: 对于范围(h,0,-1)中的k:D[k]+=D[k-1] 其他: 对于范围(1,h,1)中的k:D[k]+=D[k-1] R.append(D[h-2]); h+=1; b=非b 返回R
切比雪夫U多项式中x的幂 ( A039598号 , A039599号 )
定义A039599_三角形(n): D=[0]*(n+2); D[1]=1 b=正确; h=1 对于范围(2*n-1)中的i: 如果b: 对于范围(h,0,-1)中的k:D[k]+=D[k-1] h+=1 其他: 对于范围(1,h,1)中的k:D[k]+=D[k+1] 如果b:打印(1..h-1)中z的[D[z] b=非b A039599_三角形(10) [1] [1, 1] [2, 3, 1] [5,9,5,1] [14, 28, 20, 7, 1] [42, 90, 75, 35, 9, 1] [13229727515454,11,1] [429, 1001, 1001, 637, 273, 77, 13, 1] [1430, 3432, 3640, 2548, 1260, 440, 104, 15, 1] [4862, 11934, 13260, 9996, 5508, 2244, 663, 135, 17, 1]
定义A039598_三角形(n): D=[0]*(n+2); D[1]=1 b=正确; h=1 对于范围(2*n)内的i: 如果b: 对于范围(h,0,-1)中的k:D[k]+=D[k-1] h+=1 其他: 对于范围(1,h,1)中的k:D[k]+=D[k+1] b=非b 如果b:打印(1..h-1)中z的[D[z] A039598_三角形(10) [1] [2, 1] [5, 4, 1] [14, 14, 6, 1] [42, 48, 27, 8, 1] [132, 165, 110, 44, 10, 1] [429, 572, 429, 208, 65, 12, 1] [1430, 2002, 1638, 910, 350, 90, 14, 1] [4862, 7072, 6188, 3808, 1700, 544, 119, 16, 1] [16796, 25194, 23256, 15504, 7752, 2907, 798, 152, 18, 1]
Paul Barry的两个Riordan阵列( A165621号 , A112554美元 )
def Signed_A165621_三角形(n): D=[0]*(n+4); D[1]=1 b=错误; h=3 对于范围(2*n)内的i: 如果b: 对于范围(h,0,-1)中的k:D[k]+=D[k-1] h+=1 其他: 对于范围(1,h,1)中的k:D[k]-=D[k+1] 如果b:打印(2..h-2)中z的[D[z] b=非b 签名_A165621_三角形(11) [1] [1, 1] [-1, 1, 1] [-2, -2, 1, 1] [2, -3, -3, 1, 1] [5, 5, -4, -4, 1, 1] [-5, 9, 9, -5, -5, 1, 1] [-14, -14, 14, 14, -6, -6, 1, 1] [14, -28, -28, 20, 20, -7, -7, 1, 1] [42, 42, -48, -48, 27, 27, -8, -8, 1, 1] [-42, 90, 90, -75, -75, 35, 35, -9, -9, 1, 1]
T(n,k)=总和{j=0..n,b(n-j)*总和{i=0..k,(-1)^(k-i)* C(k,i)*总和{m=0..i,C(i,m)*(C(i-m,m+k) -C(i-m,i+k+2))}}} 其中b(n)是从1开始,然后是 充气加泰罗尼亚数:1,1,0,1,0,2,0,5,0,14,。。。
def Signed_A112554_三角形(n): D=[0]*(n+4); D[1]=1 b=错误; h=2 对于范围(2*n+2)中的i: 如果b: 对于范围(h,0,-1)中的k:D[k]+=D[k-1] h+=1 其他: 对于范围(1,h,1)中的k:D[k]-=D[k+1] b=非b 如果b和i>0:打印(2..h-1)中z的[D[z] 签名_A112554_三角形(13) [1] [0, 1] [-2, 0, 1] [0, -3, 0, 1] [5, 0, -4, 0, 1] [0, 9, 0, -5, 0, 1] [-14, 0, 14, 0, -6, 0, 1] [0, -28, 0, 20, 0, -7, 0, 1] [42, 0, -48, 0, 27, 0, -8, 0, 1] [0, 90, 0, -75, 0, 35, 0, -9, 0, 1] [-132, 0, 165, 0, -110, 0, 44, 0, -10, 0, 1] [0, -297, 0, 275, 0, -154, 0, 54, 0, -11, 0, 1] [429, 0, -572, 0, 429, 0, -208, 0, 65, 0, -12, 0, 1]