|
| |
|
| A339559 |
| n的整数分区数，该整数分区具有偶数个部分，并且不能划分为不同的独立部分对，即不是任何一组边的多集并集。 |
|
19
|
|
|
|
0, 0, 1, 0, 2, 1, 4, 3, 7, 6, 14, 14, 23, 27, 41, 47, 70, 84, 114, 141, 190, 225, 303, 370, 475, 578, 738, 890, 1131, 1368, 1698, 2058, 2549, 3048, 3759, 4505, 5495, 6574, 7966, 9483, 11450
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,5
|
|
|
评论
|
这样一个分区的多重性形成了一个非图形分区。
|
|
|
链接
|
|
|
|
例子
|
a（2）=1到a（10）=14个分区（空列用点表示）：
11、。22 2111 33 2221 44 3222 55
1111 2211 4111 2222 6111 3322
3111 211111 3311 222111 3331
111111 5111 321111 4222
221111 411111 4411
311111 21111111 7111
11111111 222211
322111
331111
421111
511111
22111111
31111111
1111111111
例如，分区y=（4,4,3,3,2,1,1,1）可以通过以下三种方式划分为多组边：
{{1,2},{1,2},{1,3},{1,4},{3,4}}
{{1,2},{1,3},{1,3},{1,4},{2,4}}
{{1,2},{1,3},{1,4},{1,4},{2,3}}
这些都不严格，所以y被算作a（22）。
|
|
|
数学
|
strs[n_]：=如果[n<=1，{{}}，连接@@表[Map[Prepend[#，d]&，Select[strs[n/d]，Min@@#>d&]]，{d，选择[Rest[Divisors[n]]，And[SquareFreeQ[#]，PrimeOmega[#]==2]&]}]]；
表[Length[Select[Integer Partitions[n]，EvenQ[Length[#]]&&strs[Times@@Prime/@#]=={}&]]，{n，0，15}]
|
|
|
交叉参考
|
下面计算偶数长度的分区并给出它们的Heinz数：
囊性纤维变性。A001055号,A001221号,A005117号,A007717号,A025065型,A030229号,A089259号,A292432型,A320893型,A338899型,A338903型,A339619型.
|
|
|
关键词
|
非n,更多
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
