|
| |
|
| A317791型 |
| 素数指标n的多集的非同构多集划分数（第n行A112798号). |
|
30
|
|
|
|
1, 1, 1, 2, 1, 2, 1, 3, 2, 2, 1, 4, 1, 2, 2, 5, 1, 4, 1, 4, 2, 2, 1, 7, 2, 2, 3, 4, 1, 3, 1, 7, 2, 2, 2, 7, 1, 2, 2, 7, 1, 3, 1, 4, 4, 2, 1, 12, 2, 4, 2, 4, 1, 7, 2, 7, 2, 2, 1, 9, 1, 2, 4, 11, 2, 3, 1, 4, 2, 3, 1, 16, 1, 2, 4, 4, 2, 3, 1, 12, 5, 2, 1, 9, 2, 2, 2
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,4
|
|
|
评论
|
n的素数指数是一个数字m，素数（m）除以n。
补语中有什么术语是已知的吗？特别是，这个序列包含6吗-古斯·怀斯曼2022年10月21日
|
|
|
链接
|
|
|
|
配方奶粉
|
如果n是具有k个素数因子的平方，或者如果n＝pπk对于p素数，我们有a（n）=A000041号（k） ●●●●。
|
|
|
例子
|
a（42）=3多集划分的非同构代表是{{1,2,4}}，{{1}，}2,4}，f1}，f2，}}。
a（60）=9个多集分区的非同构代表：
{1123},
{1} {123}、{2}、{113}、{11}、{23}、{12}、{13}，
{1}{1}{23}, {1}{2}{13}, {2}{3}{11},
{1}{1}{2}{3}.
此列表中缺少{3}{112}和{1}{3}}{12}，它们分别与{2}{113}和}1}{2}}{13}同构。
对于n=180=2^2*3^2*5，有A001055号（180）=26个不同的因子分解为一个或多个大于1的因子。在这18种情况中，通过交换该因子分解的每个因子中的2和3，结果是另一种不同的因子分解180，而其他8种情况下，2<->3交换不会改变因子分解。因此，a（180）=18/2+8=17-安蒂·卡图恩2018年12月3日
|
|
|
数学
|
sps[{}]：={{}}；sps[set:{i_，___}]：=联接@@函数[s，前缀[#，s]和/@sps[Complement[set，s]]/@Cases[子集[set]，{i，___}]；
mps[set_]：=联合[Sort[Sort/@（#/.x_Integer:>set[[x]]）]&/@sps[Range[Length[set]]]；
系统规范[{}]：={}；sysnorm[m_]：=如果[Union@@m！=范围[Max@@Flatten[m]]，sysnorm[m/.Rule@@@表[{（Union@@m）[[i]]，i}，{i，长度[Union@m]}]]，第一个[Sort[sysnormal[m，1]]]；sysnorm[m_，aft_]：=If[Length[Union@@m]<=aft，{m}，With[{mx=Table[Count[m，i，{2}]，{i，Select[Union@@m，#>=aft&]}]}，Union@@（sysnorm[#，aft+1]&/@Union[Table[Map[Sort，m/.{par+aft-1->aft，aft->par+aft_1}，{0，1}]，}，[par，First/@Position[mx，Max[mx]]}]）]]）]；
素数MS[n_]：=如果[n==1，{}，扁平[Cases[FactorInteger[n]，{p_，k_}:>表[PrimePi[p]，{k}]]]；
表[长度[Union[sysnorm/@mps[primeMS[n]]]，{n，100}]
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
