显示1-1个结果(共1个)。
第页1
4, 8, 12, 16, 18, 20, 24, 27, 28, 32, 36, 40, 44, 48, 50, 52, 54, 56, 60, 64, 68, 72, 76, 80, 81, 84, 88, 90, 92, 96, 100, 104, 108, 112, 116, 120, 124, 125, 126, 128, 132, 135, 136, 140, 144, 148, 150, 152, 156, 160, 162, 164, 168, 172, 176, 180, 184, 188
评论
n的素数指数是一个数m,使得素数(m)除以n。n的多素数指数集是A112798号.
根据霍尔的婚姻定理,k是一个项当且仅当k的素数指数有一个子多集s,使得小于|s|的数是s成员的除数。等价地,k可以被A370348型. -罗伯特·伊斯雷尔,2024年2月15日
例子
这些术语及其主要指数开始于:
4: {1,1}
8: {1,1,1}
12: {1,1,2}
16: {1,1,1,1}
18: {1,2,2}
20: {1,1,3}
24: {1,1,1,2}
27: {2,2,2}
28: {1,1,4}
32: {1,1,1,1,1}
36: {1,1,2,2}
40: {1,1,1,3}
44: {1,1,5}
48: {1,1,1,1,2}
例如,每个90的素数指数的除数的选择是:(1,1,1,1),(1,1,1,3),(1,1,2,1)。但这些都没有完全不同的元素,所以90在序列中。
MAPLE公司
filter:=proc(n)使用numtheory、GraphTheory;局部B、S、F、D、E、G、t、D;
F: =系数(n)[2];
F: =映射(t->[pi(t[1]),t[2],F);
D: =`union`(seq(除数(t[1]),t=F));
F: =映射(proc(t)局部i;seq([t[1],i],i=1..t[2])结束过程,F);
如果nops(D)<nops(F),则返回false fi;
E: ={seq(seq({t,d},d=除数(t[1])),t=F)};
S: =映射(t->convert(t,name),[op(F),op(D)]);
E: =地图(E->map(convert,E,name),E);
G: =图形(S,E);
B: =BipartiteMatching(G);
B[1]=无(F);
结束进程:
数学
素数MS[n_]:=如果[n==1,{},扁平[Cases[FactorInteger[n],{p_,k_}:>表[PrimePi[p],{k}]]];
选择[Range[100],选择[Tuples[Divisors/@primeMS[#]],UnsameQ@@#&]=={}&]
搜索在0.007秒内完成
|