|
|
A047884号 |
| 数字a(n,k)的三角形=具有n个单元格和k行的Young表的数量(1<=k<=n);以及n个字母上的自逆排列的数量,其中最长的分散(即不一定连续)递增子序列的长度为k。 |
|
19
|
|
|
1, 1, 1, 1, 2, 1, 1, 5, 3, 1, 1, 9, 11, 4, 1, 1, 19, 31, 19, 5, 1, 1, 34, 92, 69, 29, 6, 1, 1, 69, 253, 265, 127, 41, 7, 1, 1, 125, 709, 929, 583, 209, 55, 8, 1, 1, 251, 1936, 3356, 2446, 1106, 319, 71, 9, 1, 1, 461, 5336, 11626, 10484, 5323, 1904, 461, 89, 10, 1
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
偏移
|
1,5
|
|
参考文献
|
W.Fulton,Young Tableaux,剑桥,1997年。
D.Stanton和D.White,《建构组合数学》,施普林格出版社,1986年。
|
|
链接
|
|
|
例子
|
对于n=3,4个表格如下
1 2 3 . 1 2 . 1 3 . 1
. . . . 3 . . 2 . . 2
. . . . . . . . . . 三
三角形开始:
1;
1, 1;
1, 2, 1;
1, 5, 3, 1;
1, 9, 11, 4, 1;
1, 19, 31, 19, 5, 1;
1, 34, 92, 69, 29, 6, 1;
1, 69, 253, 265, 127, 41, 7, 1;
1, 125, 709, 929, 583, 209, 55, 8, 1;
1, 251, 1936, 3356, 2446, 1106, 319, 71, 9, 1;
1, 461, 5336, 11626, 10484, 5323, 1904, 461, 89, 10, 1;
...
|
|
MAPLE公司
|
h: =proc(l)局部n;n: =nops(l);加(i,i=l)/mul(mul(1+l[i]-j+
加法(`if`(l[k]>=j,1,0),k=i+1..n),j=1..l[i]),i=1..n)
结束时间:
g: =proc(n,i,l)`if`(n=0或i=1,(p->h(p)*x^` if`(p=[],0,p[1]))
([l[],1$n]),加上(g(n-i*j,i-1,[l[],i$j]),j=0..n/i)
结束时间:
T: =n->(p->seq(系数(p,x,i),i=1..n))(g(n$2,[])):
seq(T(n),n=1..14)#阿洛伊斯·海因茨2012年4月16日,2014年3月5日修订
|
|
数学
|
表[Plus@@(NumberOfTableaux/@Reverse/@Union[Sort/@(成分[n-m,m]+1)]),{n,12},{m,n}]
(*第二个节目:*)
h[l]:=使用[{n=长度[l]},总计[l]/乘积[1+l[[i]]-j+和[If[l[[k]]>=j,1,0],{k,i+1,n}],{j,1;
g[n_,i_,l_]:=如果[n==0||i==1,函数[p,h[p]*x^If[p=={},0,p[[1]]][Join[l,Array[1&,n]]],Sum[g[n-i*j,i-1,Join[1,Array[i&,j]],{j,0,n/i}]];
T[n_]:=函数[p,表[系数[p,x,i],{i,1,n}][g[n,n,{}]];
|
|
交叉参考
|
|
|
关键词
|
|
|
作者
|
|
|
扩展
|
定义修改(添加“分散”)沃特·米森2010年12月22日
|
|
状态
|
经核准的
|
|
|
|