OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A210391型 最大元素<=k的n的所有分区上半标准Young表的数A(n,k);方阵A(n,k),n>=0,k>=0。 21
1, 1, 0, 1, 1, 0, 1, 2, 1, 0, 1, 3, 4, 1, 0, 1, 4, 9, 6, 1, 0, 1, 5, 16, 19, 9, 1, 0, 1, 6, 25, 44, 39, 12, 1, 0, 1, 7, 36, 85, 116, 69, 16, 1, 0, 1, 8, 49, 146, 275, 260, 119, 20, 1, 0, 1, 9, 64, 231, 561, 751, 560, 189, 25, 1, 0 (列表;桌子;图表;参考;;历史;文本;内部格式)
抵消
0,8
链接
阿洛伊斯·海因茨,反对角线n=0..140,平坦
FindStat-组合统计查找器,半标准杨表
维基百科,杨氏矩阵
配方奶粉
k列的G.f:1/((1-x)^k*(1-x^2)^(k*(k-1)/2))。
A(n,k)=总和_{i=0..k}C(k,i)*A138177号(n,k-i)-阿洛伊斯·海因茨2015年4月6日
例子
方阵A(n,k)开始:
1, 1, 1, 1, 1, 1, 1, ...
0, 1, 2, 3, 4, 5, 6, ...
0, 1, 4, 9, 16, 25, 36, ...
0, 1, 6, 19, 44, 85, 146, ...
0, 1, 9, 39, 116, 275, 561, ...
0, 1, 12, 69, 260, 751, 1812, ...
0, 1, 16, 119, 560, 1955, 5552, ...
MAPLE公司
#第一个程序:
h: =(l,k)->mul(mul((k+j-i)/(1+l[i]-j+加法(`if`(l[t]>=j,1,0)
,t=i+1..nops(l)),j=1..l[i]),i=1..nops
g: =进程(n,i,k,l)
`如果`(n=0,h(l,k),`如果`(i<1,0,g(n,i-1,k,l)+
`如果`(i>n,0,g(n-i,i,k,[l[],i]))
结束时间:
A: =(n,k)->`如果`(n=0,1,g(n,n,k,[])):
seq(seq(A(n,d-n),n=0..d),d=0..12);
#第二个程序:
gf:=k->1/((1-x)^k*(1-x^2)^(k*(k-1)/2)):
A: =(n,k)->系数(系列(gf(k),x,n+1),x、n):
seq(seq(A(n,d-n),n=0..d),d=0..12);
数学
(*第一个程序:*)
h[l,k_]:=乘积[乘积[(k+j-i)/(1+l[i]]-j+总和[如果[l[[t]]>=j,1,0],{t,i+1,长度[l]}]),{j,1;g[n_,i_,k_,l_]:=如果[n==0,h[l,k],如果[i<1,0,g[n,i-1,k,l]+如果[i>n,0,g[n-i,i,k,追加[l,i]]];a[n_,k_]:=如果[n==0,1,g[n,n,k,{}]];表[表[a[n,d-n],{n,0,d}],{d,0,12}]//扁平
(*第二个节目:*)
gf[k_]:=1/((1-x)^k*(1-x^2)^(k*(k-1)/2));a[n,k_]:=系数[级数[gf[k],{x,0,n+1}],x,n];表[表[a[n,d-n],{n,0,d}],{d,0,12}]//扁平(*Jean-François Alcover公司,2013年12月9日,翻译自枫叶*)
交叉参考
主对角线给出:A209673型.
囊性纤维变性。A138177号,A191714号.
关键词
非n,
作者
阿洛伊斯·海因茨2012年3月20日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年6月8日17:52。包含373227个序列。(在oeis4上运行。)