|
| |
|
| A238014型 |
| 具有n个单元格的国际象棋表的数量。 |
|
2
|
|
|
|
1, 1, 2, 2, 4, 6, 12, 20, 48, 84, 216, 408, 1104, 2280, 6288, 14128, 40256, 96240, 287904, 714016, 2246592, 5750112, 18900672, 49973568, 169592576, 466175808, 1618212224, 4637091200, 16393123072, 48926588544, 176264622336, 545058738944, 2008508679168
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,3
|
|
|
评论
|
对于所有单元格（i，j）+i+j==1 mod 2的标准Young表（SYT）称为国际象棋表。换句话说，奇数单元格出现在第一、第三、第五等斜对角线中，而偶数单元格则出现在第二、第四、第六等斜对角中。这个定义首先出现在Jonas Sjöstrand的文章中。
n>=2的所有项都是偶数，因为每个象棋表的共轭项是n>=2的不同象棋表。
投票序列数（最少元素和第一个索引均为0或均为1），每个元素e的第一次出现的索引与e具有相同的奇偶性，相同的元素由偶数个不同的元素分隔，参见示例。[乔格·阿恩特2014年2月28日]
|
|
|
链接
|
周天佑、H.埃里克森和樊国凯，国际象棋表，选举。J.Combina.，11（2）（2005），#A3。
Jonas Sjöstrand，论隔断形状的符号平衡，arXiv:math/0309231v3[math.CO]，2005年。
|
|
|
配方奶粉
|
a（n）=Sum_{lambda:分区（n）}国际象棋（lambda），其中国际象棋（lambda）是形状为lambda的国际象棋表的数量。
|
|
|
例子
|
a（5）=6：
[1] [1 4] [1 2 3] [1 4 5] [1 2 3] [1 2 3 4 5]
[2] [2 5] [4] [2] [4 5]
[3] [3] [5] [3]
[4]
[5]
注意当模2减少时，表格如何变成部分棋盘：
[1] [1 0] [1 0 1] [1 0 1] [1 0 1] [1 0 1 0 1]
[0] [0 1] [0] [0] [0 1]
[1] [1] [1] [1]
[0]
[1]
a（7）=20投票序列为（点代表零）：
01: [ . . . . . . . ]
02: [ . . . . . 1 1 ]
03: [ . . . . . 1 2 ]
04: [ . . . 1 1 . . ]
05: [ . . . 1 1 . 2 ]
06: [ . . . 1 1 1 2 ]
07: [ . . . 1 2 . . ]
08: [ . . . 1 2 . 1 ]
09: [ . . . 1 2 3 1 ]
10: [ . . . 1 2 3 4 ]
11: [ . 1 2 . . . . ]
12: [ . 1 2 . . . 1 ]
13: [ . 1 2 . . 3 1 ]
14: [ . 1 2 . . 3 4 ]
15:【.1 2.1 2.】
16: [ . 1 2 . 1 3 . ]
17: [ . 1 2 . 1 3 4 ]
18: [ . 1 2 3 4 . . ]
19: [ . 1 2 3 4 . 1 ]
20: [ . 1 2 3 4 5 6 ]
（结束）
|
|
|
MAPLE公司
|
b： =proc（）选项记住；局部s；s： =添加（i，i=参数）`如果`（s=0，1，
`如果`（args[nargs]=0，b（subsop（nargs=NULL，[args]）[]），
添加（`if`（irem（s+i-args[i]，2）=1和args[i]>` if`（i=nargs，0，
args[i+1]），b（子点（i=args[i]-1，[args]）[]），0），i=1..nargs））
结束时间：
g： =（n，i，l）->`如果'（n=0或i=1，b（l[]，1$n），`如果'（i<1，0，
添加（g（n-i*j，i-1，[l[]，i$j]），j=0..n/i））：
a： =n->g（n，n，[]）：
seq（a（n），n=0..32）；
|
|
|
数学
|
b[args_]：=b[args]=模块[{nargs=Length[args]，s=Total[args]}，如果[s==0，1，如果[Last[args:=0，b[Most[args]]，总和[If[Mod[s+i-args[[i]]，2]==1&args[[i]]>如果[i=nargs，0，args[i+1]]，b[Append[ReplacePart[args，i->args[i]]-1]，0]]，0]，{i，1，nargs}]]]；
g[n_，i_，l_]：=g[n，i，l]=如果[n==0||i==1，b[Join[l，表[1，n]]，如果[i<1，0，总和[g[n-i*j，i-1，Join[1，表[i，j]]，{j，0，n/i}]]；
a[n]：=g[n，n，{}]；
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
