|
|
A355734型 |
| 最小k,使得恰好有n个多集,可以通过选择k的每个素数索引的除数来获得。 |
|
12
|
|
|
1, 3, 7, 13, 21, 35, 39, 89, 133, 105, 91, 195, 351, 285, 247, 333, 273, 481, 455, 555, 623, 801, 791, 741, 1359, 1157, 1281, 1335, 1365, 1443, 1977, 1729, 1967, 1869, 2109, 3185, 2373, 2769, 2639, 4361, 3367, 3653, 3885, 3471, 4613, 5883, 5187, 5551, 6327
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
n的素数指数是一个数m,使得素数(m)除以n。n的多素数指数集是A112798号.
|
|
链接
|
|
|
例子
|
这些术语及其主要指数开始于:
1: {}
3: {2}
7: {4}
13: {6}
21: {2,4}
35: {3,4}
39: {2,6}
89: {24}
133: {4,8}
105: {2,3,4}
91: {4,6}
195: {2,3,6}
351: {2,2,2,6}
例如,a(12)=195的选项为:
{1,1,1} {1,2,2} {1,3,6}
{1,1,2} {1,2,3} {2,2,3}
{1,1,3} {1,2,6} {2,3,3}
{1,1,6} {1,3,3} {2,3,6}
|
|
数学
|
素数MS[n_]:=如果[n==1,{},扁平[Cases[FactorInteger[n],{p_,k_}:>表[PrimePi[p],{k}]]];
mnrm[s_]:=如果[Min@@s==1,mnrm[DeleteCase[s-1,0]]+1,0];
az=表[Length[Union[Sort/@Tuples[Divisors/@primeMS[n]]],{n,1000}];
表[位置[az,k][[1,1]],{k,mnrm[az]}]
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|