搜索: 编号:a191714
|
|
A191714号
|
| a(n,k)等于n的分区形状和最大元素<=k的半标准Young表的个数。 |
|
+0 8
|
|
|
1、1、4、1、6、19、1、9、39、116、1、12、69、260、751、1、16、119、560、1955、5552、1、20、189、1100、4615、15372、43219、1、25、294、2090、10460、40677、131131、366088、1、30、434、3740、22220、100562、370909、1168008、3245311、1、36、630、6512、45628、239316、1007083、3570240、11042199、30569012、1、42、882,10868、89420、541926、2596573、, 10347864, 35587071, 108535130, 299662672, 1, 49, 1218, 17732, 170340, 1188341, 6466159, 28915056, 110426979, 370661885, 1117689232, 3079276708
(列表;桌子;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,3
|
|
评论
|
最大元素可以是任何整数,但此处选择为<=n。
|
|
链接
|
|
|
例子
|
对于n=3和k=2,SSYT为
par={3}SSYT={{1,1,1}},{{2,1,1}}
par={2,1}SSYT={{2,1},{1}}
par={1,1,1}SSYT=无
计数4+2+0=6=a(3,2)。
表格开始:
1;
1, 4;
1, 6, 19;
1, 9, 39, 116;
1、12、69260751;
1, 16, 119, 560, 1955, 5552;
1, 20, 189, 1100, 4615, 15372, 43219; ...
|
|
数学
|
需求[“Combinatorica`”];
hooklength[(p_)?PartitionQ]:=块[{ferr=(PadLeft[1+0*Range[#1],Max[p]&)/@p},DeleteCases[(Rest[FoldList[Plus,0,#1]]&)/@ferr+Reverse/@Reverse[Transpose[(Rest[FoldList[Plus、0,#1]]]&)/@反向[Reverse/@Transpose[ferr]]],0,-1];
content[(p_)?分区Q]:=块[{le=Max[p],ferr=(PadLeft[1+0*Range[#1],Max[p]]&)/@p},删除案例[MapIndexed[-le+Range[le,1,-1]-#1-Tr[#2]&,0*ferr]*ferr,0,-1]+le];
stanley[(p_)?分区Q,t_Integer]:=倍@@((t+展平[content[p]])/展平[hooklength[p]]);
表[Tr[stanley[#,k]&/@Partitions[n]],{n,12},{k,n}]
|
|
交叉参考
|
|
|
关键词
|
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.006秒内完成
|