|
| |
|
| A239880型 |
| n的严格分区数，其顺序中没有相等奇偶校验的部分并置，且第一项和最后项具有相同奇偶校验。 |
|
三
|
|
|
|
0, 1, 1, 1, 1, 1, 2, 2, 3, 3, 5, 5, 7, 7, 10, 11, 14, 15, 19, 22, 26, 30, 35, 42, 47, 56, 62, 76, 83, 100, 108, 132, 142, 171, 184, 222, 239, 284, 306, 363, 394, 460, 500, 581, 636, 730, 802, 914, 1010, 1139, 1262, 1415, 1577, 1753, 1956, 2163, 2423, 2663
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
0,7
|
|
|
评论
|
严格分区是指每个部分的重数为1的分区。
|
|
|
链接
|
|
|
|
例子
|
a（12）统计这7个分区：[12]、[9,2,1]、[3,8,1]、[7,4,1]、[0,2,3]、[5,6,1]、[5,4,3]。
|
|
|
MAPLE公司
|
b： =proc（n，i，t）选项记忆`如果`（n>i*（i+1）/2或
abs（t）-n>1，0，`if`（n=0，abs（t），b（n，i-1，t）+
`如果`（i>n，0，b（n-i，i-1，t+（2*irem（i，2）-1）））
结束时间：
a： =n->b（n$2,0）：
|
|
|
数学
|
d[n_]：=选择[IntegerPartitions[n]，最大[Length/@Split@#]==1&]；
p[n_]：=p[n]=选择[d[n]，Abs[Count[#，_？OddQ]-Count[#，_？EvenQ]]==1&]；t=表[p[n]，{n，0，12}]
TableForm[t]（*显示分区*）
b[n_，i_，t_]：=b[n，i，t]=如果[n>i*（i+1）/2||Abs[t]-n>1，0，如果[n==0，Abs[t]，b[n、i-1，t]+如果[i>n，0，b[n-i，i-1，t+（2*Mod[i，2]-1）]]；a[n]：=b[n，n，0]；表[a[n]，{n，0，80}](*Jean-François Alcover公司2016年8月29日之后阿洛伊斯·海因茨*)
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,容易的
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
