|
|
A236913型 |
| EE型2n分区的数量(见注释)。 |
|
49
|
|
|
1, 1, 3, 6, 12, 22, 40, 69, 118, 195, 317, 505, 793, 1224, 1867, 2811, 4186, 6168, 9005, 13026, 18692, 26613, 37619, 52815, 73680, 102162, 140853, 193144, 263490, 357699, 483338, 650196, 870953, 1161916, 1544048, 2044188, 2696627, 3545015, 4644850, 6066425
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,3
|
|
评论
|
n的分区分为四种类型:
|
|
链接
|
|
|
例子
|
EE型的4个分区是[3,1]、[2,2]、[1,1,1],因此a(2)=3。
类型/k。1 .. 2 .. 三。。4 .. 5 .. 6。。7 .. 8 ... 9 ... 10 .. 11
工程指令。。。。。0。。1 .. 0 .. 2 .. 0 .. 5 .. 0 .. 10 .. 0 ... 20 .. 0
运行经验。。。。。1 .. 0 .. 2 .. 0 .. 4 .. 0 .. 8 .. 0 ... 16 .. 0 ... 29
EE。。。。。0 .. 1 .. 0 .. 三。。0 .. 6 .. 0 .. 12 .. 0 ... 22 .. 0
面向对象。。。。。0 .. 0 .. 1 .. 0 .. 3。。0 .. 7 .. 0 ... 14 .. 0 ... 27
这个序列计算偶数的偶数长度分区,这些分区的Heinz数由A340784型例如,a(0)=1到a(4)=12个分区是:
() (11) (22) (33) (44)
(31) (42) (53)
(1111) (51) (62)
(2211)(71)
(3111) (2222)
(111111) (3221)
(3311)
(4211)
(5111)
(221111)
(311111)
(11111111)
(结束)
|
|
MAPLE公司
|
b: =proc(n,i)选项记忆`如果`(n=0,[1,0$3],
`如果`(i<1,[0$4],b(n,i-1)+`如果`(i>n,[0$4],(p->
`如果`(irem(i,2)=0,[p[3],p[4],p[1],p[2],
[p[2],p[1],p[4],p[3]))(b(n-i,i)))
结束时间:
a: =n->b(2*n$2)[1]:
|
|
数学
|
z=25;m1=Map[Length[Select[Map[{Count[#,True],Count[#,False]}&,OddQ[Integer Partitions[2#]]],EvenQ[(*Odd*)First[#]]&&OddQ[(*偶数*)Last[#]]&,Range[z]];m2=地图[Length[Select[Map[{Count[#,True],Count[#,False]}&,OddQ[IntegerPartitions[2#-1]],OddQ[(*Odd*)First[#]]&&EvenQ[(*Even*)Last[#]&]]&,Range[z]];m3=地图[Length[Select[Map[{Count[#,True],Count[#,False]}&,
奇数Q[Integer Partitions[2#]]],EvenQ[(*Odd*)First[#]]&&EvenQ[(*Even*)Last[#]]&,Range[z]];m4=地图[Length[Select[Map[{Count[#,True],Count[#,False]}&,
奇数Q[Integer Partitions[2#-1]]],奇数Q[(*Odd*)First[#]]&&OddQ[(*Even*)Last[#]&]]&,Range[z]];
表[Length[Select[Integer Partitions[2n],EvenQ[Length[#]]&]],{n,0,15}](*古斯·怀斯曼2021年2月9日*)
|
|
交叉参考
|
注:下面括号中是排名序列的A数字。
|
|
关键词
|
非n,容易的
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|