|
|
A370816型 |
| 通过选择n的整数因式分解中每个因子的除数,将n分解为无序因子>1,可以获得最大数量的多集。 |
|
5
|
|
|
1, 2, 2, 3, 2, 4, 2, 5, 3, 4, 2, 7, 2, 4, 4, 7, 2, 7, 2, 7, 4, 4, 2, 11, 3, 4, 5, 7, 2, 8, 2, 10, 4, 4, 4, 12, 2, 4, 4, 11, 2, 8, 2, 7, 7, 4, 2, 17, 3, 7, 4, 7, 2, 11, 4, 11, 4, 4, 2, 15, 2, 4, 7, 14, 4, 8, 2, 7, 4, 8, 2, 20, 2, 4, 7, 7, 4, 8, 2, 17, 7, 4, 2
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
例子
|
对于12的因子分解,我们有以下选择:
(2*2*3): {{1,1,1},{1,1,2},{1,1,3},{1,2,2},{1,2,3},{2,2,3}}
(2*6): {{1,1},{1,2},{1,3},{1,6},{2,2},{2,3},{2,6}}
(3*4): {{1,1},{1,2},{1,3},{1,4},{2,3},{3,4}}
(12): {{1},{2},{3},{4},{6},{12}}
所以a(12)=7。
|
|
数学
|
facs[n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}];
表[Max[Length[Union[Sort/@Tuples[Divisors/@#]]]&/@facs[n]],{n,100}]
|
|
交叉参考
|
参见。A000792号,A048249号,A066739号,A319055型,A319057型,A355737飞机,A355739型,A355740型,A355741型,A368110型,A370803型.
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|