登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
324428美元 具有n个弦的标记循环弦图的数量T(n,k),使得每个弦的长度至少为k;三角形T(n,k),n>=1,1<=k<=n,按行读取。 12
1, 3, 1, 15, 4, 1, 105, 31, 7, 1, 945, 293, 68, 11, 1, 10395, 3326, 837, 159, 18, 1, 135135, 44189, 11863, 2488, 381, 29, 1, 2027025, 673471, 189503, 43169, 7601, 879, 47, 1, 34459425, 11588884, 3377341, 822113, 160784, 23559, 2049, 76, 1, 654729075, 222304897, 66564396, 17066007, 3621067, 607897, 72989, 4788, 123, 1 (列表;桌子;图表;参考;;历史;文本;内部格式)
抵消
1,2
评论
T(n,k)定义为所有n,k>=0。三角形只包含1<=k<=n T(n,0)的项=A001147号(n) 对于k>n>0,T(0,k)=1,T(n,k)=0。
链接
阿洛伊斯·海因茨,行n=1..19,扁平
配方奶粉
T(n,k)=和{j=k.n}A324429型(n,j)。
例子
三角形T(n,k)开始于:
1;
3,1;
15, 4, 1;
105, 31, 7, 1;
945, 293, 68, 11, 1;
10395, 3326, 837, 159, 18, 1;
135135, 44189, 11863, 2488, 381, 29, 1;
2027025, 673471, 189503, 43169, 7601, 879, 47, 1;
...
MAPLE公司
b: =proc(n,f,m,l,j)选项记忆;(k->`如果`(n<加(i,i=f)+m+
加法(i,i=l),0,`if`(n=0,1,加法(`if`)(f[i]=0,0,b(n-1,
底土(i=0,f),m+l[1],[底土(1=[][],l)[],0],最大值(0,j-1)),
i=最大值(1,j+1)。。最小值(k,n-1)+`如果`(m=0,0,m*b(n-1,f,m-1+l[1],
[底土(1=[][],l)[],0],最大(0,j-1))+b(n-1,f,m+l[1],
[底土(1=[][],l)[],1],最大(0,j-1)))(nops(l))
结束时间:
T: =(n,k)->`如果`(n=0或k<2,双阶乘(2*n-1),
b(2*n-k+1,[1$k-1],0,[0$k-1]k-1):
seq(seq(T(n,k),k=1..n),n=1..10);
数学
b[n_,f_List,m_,l_List(j_]):=b[n,f,m,l,j]=函数[k,如果[n<总计[f]+m+总计[l],0,如果[n==0,1,总和[If[i]==0、0,b[n-1,替换部分[f,i->0],m+l[1]],追加[ReplacePart[l,1->Nothing],0],最大[0,j-1]],{i,最大[1,j+1],最小[k,n-1]}]+如果[m==0,0,m*b[n-1,f,m-1+l[[1],追加[ReplacePart[l,1->Nothing],0],最大[0,j-1]]+b[n-1,f,m+l[[1]],追加[RepleacePart[1,1->North],1],最大[0,j-1-]]]][长度[l]];
T[n_,k_]:=如果[n==0||k<2,2^(n-1)Pochhammer[3/2,n-1],b[2n-k+1,表[1,{k-1}],0,表[0,{k1}];
表[T[n,k],{n,1,10},{k,1,n}]//扁平(*Jean-François Alcover公司2020年4月27日之后阿洛伊斯·海因茨*)
交叉参考
T(n,n-1)给出A000204号.
囊性纤维变性。A293157型,A293881型,A324429型.
关键词
非n,
作者
阿洛伊斯·海因茨,2019年2月27日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:2024年4月18日美国东部夏令时15:48。包含371780个序列。(在oeis4上运行。)