提出
经核准的
编辑
G.C.Greubel,<a href=“/A104989号/b104989.txt“>n表,n=0..440时为a(n)</a>
a(n)=和{k=0..n}A104988号(n,k)。
nmax:=30;
T[n_,k_]:=T[n,k]=如果[k<0|k>n,0,如果[k==n,1,如果[k==n-1,n,k*T[n、k+1]+和[T[j,0]*T[n,j+k+1],{j,0,n-k-1}]];(*T=A104980号*)
M: =M=带[{q=nmax},表[If[j>i,0,T[i,j]],{i,0、q},{j,0,q}]];
f: =f=矩阵幂[M,2];
a[n]:=a[n]=和[f[[n+1,k+1]],{k,0,n}];
表[a[n],{n,0,nmax}](*G.C.格鲁贝尔2021年6月8日*)
囊性纤维变性。A104988号,A104980号,A104988号.
_保罗·D·汉纳(保尔达纳(自动变速箱)朱诺.通用域名格式),_,2005年4月10日
OEIS服务器: https://oeis.org/edit/global/213
非n,新的
非n
保罗·D .汉娜(pauldhanna(AT)juno.com),2005年4月10日
三角形的行和A104988号,等于三角形的矩阵平方A104980号.
1, 3, 13, 69, 433, 3133, 25657, 234537, 2367825, 26176981, 314670353, 4088360569, 57112939433, 853922061413, 13609089281849, 230346936181465, 4127180489763649, 78046835384582069, 1553536327234953153
0,2
(PARI){a(n)=if(n<0,0,sum(k=0,n,(矩阵(n+1,n+1,m,j,if(m==j,1,if(m==j+1,-m+1,-polcoeff(1-1/sum(i=0,m,i!*x^i))/x+O(x^m),m-j-1))^-2)[n+1,k+1])}
囊性纤维变性。A104988号,A104980号.
Paul D Hanna(pauldhanna(AT)juno.com),2005年4月10日