|
| |
|
| A239833型 |
| n的分区数，其部分顺序相同，其中没有相等奇偶性的部分相邻，并且第一项和最后一项具有相同奇偶性。 |
|
8
|
|
|
|
0, 1, 1, 1, 2, 2, 3, 4, 6, 7, 10, 13, 17, 22, 28, 36, 46, 58, 72, 92, 113, 141, 174, 216, 263, 324, 394, 481, 583, 707, 852, 1029, 1235, 1481, 1774, 2118, 2524, 3003, 3567, 4225, 5003, 5906, 6968, 8202, 9646, 11317, 13275, 15531, 18160, 21195, 24718, 28772
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
0,5
|
|
|
链接
|
|
|
|
配方奶粉
|
|
|
|
例子
|
a（10）对这10个分区进行计数：[10]、[1,8,1]、[7,2,1]、[3,6,1]、5,4,1]、[P,3,2]、[3,1,3]、[4,1,2,1,2]，[2,3,2,1,2]、[1,2,1,2,1,1]。
|
|
|
MAPLE公司
|
b： =proc（n，i，t）选项记忆`如果`（abs（t）>n，
`如果`（n＝0，1，`如果`（i＜1，0，b（n，i-1，t）+
`如果`（i>n，0，b（n-i，i，t+（2*irem（i，2）-1））））
结束时间：
a： =n->b（n$2，-1）+b（n$1，1）：
|
|
|
数学
|
p[n_]：=p[n]=选择[IntegerPartitions[n]，Abs[Count[#，_？OddQ]-Count[#，_？EvenQ]]==1&]；t=表[p[n]，{n，0，10}]
TableForm[t]（*显示分区*）
b[n_，i_，t_]：=b[n，i，t]=如果[Abs[t]>n，0，如果[n==0，1，如果[i<1，0，b[n、i-1，t]+如果[i>n，0,b[n-i，i，t+（2*Mod[i，2]-1）]]]；a[n]：=b[n，n，-1]+b[n、n，1]；表[a[n]，{n，0，80}](*Jean-François Alcover公司2015年10月12日之后阿洛伊斯·海因茨*)
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,容易的
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
