%I#18 2023年12月23日12:55:49
%S 1,1,1,3,1,1,95,9,2,138057979,53,5,1207372681141767519148406,14,
%电话:115977248385955286651845279743228549061242,1,
%电话:17828166968924572626238325587326635565714665953602287554825051479845435442132、12928426683716662776071831213538936334670069099946776831221053855904812318987094804471930744290905499114473372801429,1
%由升序反对偶读取的N数组:A(N,k)是加泰罗尼亚数M(N)的N阶Hankel矩阵的永久性,其泛型元素由M(i,j)=A000108(i+j+k)给出,其中i,j=0。。。,n-1。
%H维基百科,<a href=“https://en.wikipedia.org/wiki/Hankel_matrix网站“>Hankel矩阵</a>。
%e阵列开始:
%e 1,1,1,1。。。
%e 1、1、2、5、14。。。
%e 3、9、53、406、3612。。。
%e 95、979、19148、490614、14798454等。。。
%电子邮箱38057、1417675、97432285、8755482505、930744290905。。。
%e。。。
%p与(线性代数):
%pC:=proc(n)选项记忆;二项式(2*n,n)/(n+1)结束:
%p A:=(n,k)->`如果`(n=0,1,永久(矩阵(n,(i,j)->C(i+j+k-2))):
%p序列(序列(A(d-k,k),k=0..d),d=0..8);#_阿洛伊斯·海因茨,2023年12月20日
%tA[n_,k_]:=如果[n==0,1,永久[Table[CatalanNumber[i+j+k],{i,0,n-1},{j,0,n-1}]];表[A[n-k,k],{n,0,8},{k,0,n}]//展平
%Y参考A000012(n=0),A000108(n=1)。
%Y参考A368012(k=0)、A368019(k=1)、A278843(k=2)、A368021(k=3)、A368022(k=4)、A368023(k=5)、A368024(k=6)。
%Y参考A368025(行列式),A368298(对角线)。
%K nonn,表
%0、4
%A _斯佩齐亚,2023年12月8日
|