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

 


A259786型
元素和为n+k的非负整数的n×n Tesler矩阵的个数T(n,k);三角形T(n,k),n>=1,0<=k<=n*(n-1)/2,按行读取。
1, 1, 1, 1, 3, 2, 1, 1, 6, 11, 11, 7, 3, 1, 1, 10, 35, 65, 81, 71, 50, 27, 12, 4, 1, 1, 15, 85, 260, 526, 771, 878, 811, 627, 416, 238, 118, 50, 18, 5, 1, 1, 21, 175, 805, 2436, 5362, 9123, 12568, 14465, 14289, 12345, 9483, 6534, 4071, 2297, 1176, 542, 224, 81, 25, 6, 1
抵消
1,5
评论
有关Tesler矩阵的定义,请参见A008608型.
链接
阿洛伊斯·海因茨,第n=1..17行,扁平
配方奶粉
和{k=0..n*(n-1)/2}(n+k)*T(n,k)=A259787型(n) ●●●●。
例子
三角形T(n,k)开始于:
1;
1, 1;
1, 3, 2, 1;
1, 6, 11, 11, 7, 3, 1;
1, 10, 35, 65, 81, 71, 50, 27, 12, 4, 1;
1, 15, 85, 260, 526, 771, 878, 811, 627, 416, 238, 118, 50, 18, 5, 1;
...
MAPLE公司
b: =proc(n,i,l)选项记忆;(m->`如果`(m=0,1,展开(
`如果`(i=0,x^(l[1]+1)*b(l[1]+1,m-1,subsop(1=NULL,l))),则添加(
b(n-j,i-1,底土(i=l[i]+j,l),j=0..n))(nops(l))
结束时间:
T: =n->(p->seq(系数(p,x,i),i=n-1..度(p)))(b(1,n-1,[0$(n-1)]):
seq(T(n),n=1..8);
数学
b[n_,i_,l_]:=b[n,i,l]=函数[m,如果[m==0,1,展开[
如果[i==0,x^(l[[1]]+1)*b[l[[1]]+1,m-1,
替换部分[l,1->无]],总和[b[n-j,i-1,
替换部件[l,i->l[[i]]+j]],{j,0,n}]]]][长度[l]];
T[n_]:=函数[p,表[系数[p,x,i],{i,n-1,
指数[p,x]}][b[1,n-1,表[0,{n-1}]];
表[T[n],{n,1,8}]//扁平(*Jean-François Alcover公司2022年3月18日之后阿洛伊斯·海因茨*)
交叉参考
关键词
非n,标签
作者
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年9月21日03:08。包含376079个序列。(在oeis4上运行。)