%I#7 2024年5月24日03:51:10

%S 1,2,6,9,10,22,25,30,34,42,45,62,63,66,75,82,98,99102110118121，

%电话：134147153166170186210218230246254275279289310314315，

%电话：3303433543583636693743823390402410422425462482490495

%N个数N，这样通过选择N的每个素数指数的不同除数只能得到一个集。

%C n的素数指数是一个数m，素数（m）除以n。n的多素数指数集是A112798的第n行。

%e 6591的素数指数是{2,6,6,6}，唯一的选择是{1,2,3,6}，所以6591在序列中。

%e条款及其主要指数开始于：

%e1:{}

%e2:{1}

%e 6:{1,2}

%e 9:{2,2}

%e 10:｛1,3｝

%e 22：{1,5}

%e 25：{3,3}

%e 30:{1,2,3}

%e 34：{1,7}

%e 42：{1,2,4}

%e 45:｛2，2，3｝

%e 62:{1,11}

%e 63:{2,2,4}

%e 66:{1,2,5}

%e 75：{2,3,3}

%e 82:{1,13}

%e 98：{1,4,4}

%e 99:{2,2,5}

%e 102:{1,2,7}

%e 110：｛1,3,5｝

%t prix[n_]：=如果[n==1，{}，扁平[Cases[FactorInteger[n]，{p_，k_}:>表[PrimePi[p]，{k}]]]；

%t选择[Range[100]，Length[Union[Sort/@Select[Tuples[Divisors/@prix[#]]，UnsameQ@@#&]]==1&]

%Y没有选择，我们有A355740，按A370320计算。

%Y至少有一种选择，我们有A368110，按A239312计算。

%这种类型的Y分区按A370595和A370815计算。

%仅就素因子而言，我们有A370647，按A370594计算。

%Y对于多个选择，我们有A370811，按A370803计算。

%Y A000005计算除数。

%Y A006530给出了最大的素因子，最小的是A020639。

%Y A027746列出了基本因子、A112798指数、长度A001222。

%Y A355731计算每个质数指数除数的选择，第一个是A355732。

%Y A355741、A355744和A355745选择基本指数的基本因子。

%Y A370814计算具有可选择除数的因子分解，补足A370813。

%Y请参阅A133686、A355529、A355739、A3550749、A367771、A367904、A370584、A370%592、A370808、A370816。

%K nonn公司

%O 1,2号机组

%A _古斯·维塞曼_，2024年3月5日