%I#7 2020年8月6日09:27:55

%S 1,2,4,6,8,10,12,14,15,16,18,20,22,24,26,28,30,32,33,34,35,36,38,40，

%电话：44,45,46,48,50,51,52,54,55,56,58,60,62,64,66,68,69,70,72,74,75,76,77，

%U 80,82,84,85,86,88,90,92,93,94,95,96,98,99100102104106

%N A304711元素的乘积。

%C A304711列出了不同素数指数是两两互质的数字。

%C First与A304711的不同之处在于它有84个。

%H Gus Wiseman，<a href=“https://docs.google.com/document/d/e/2PACX-1vSX9dPMGJhxB8rOkNCGvOs6PiyhupdWNpqLsnphdgU6MEVqFBnWegAXidDhwHeKqZe_YnUqYeGOXsOk/pub“>对某些类别的多集进行序列计数和编码</a>

%e项的序列及其素数开始于：

%e 1:{}28:{1,1,4}52:{1,1,6}

%e2:{1}30:{1,2,3}54:{1,2,2,2}

%e4:{1,1}32:{1,1,1,1,1}55:{3,5}

%e 6:{1,2}33:{2,5}56:{1,1,4}

%e 8:{1,1,1}34:{1,7}58:{1,10}

%e 10:{1,3}35:{3,4}60:{1,1,2,3}

%e 12:{1,1,2}36:{1,2,2}62:{1,11}

%e 14:{1,4}38:{1,8}64:{1,1,1,1,1,1,1}

%e 15:{2,3}40:{1,1,3}66:{1,2,5}

%e 16:{1,1,1,1}44:{1,1,5}68：{1,1,7}

%e 18:｛1,2,2｝45:｛2,2,3｝69:｛2,9｝

%e 20:{1,1,3}46:{1,9}70:{1,3,4}

%e 22:{1,5}48:{1,1,1,1,2}72:{1,1,1,2,2}

%e 24:{1,1,2}50:{1,3,3}74:{1,12}

%e 26:{1,6}51:{2,7}75:{2,3,3}

%t nn=100；

%t dat=选择[Range[nn]，CoprimQ@@PrimePi/@First/@FactorInteger[#]&]；

%t fasusing[s_，n_]：=如果[n<=1，{{}}，连接@@表[Map[Prepend[#，d]&，Select[fasusing[Select[s，Divisible[n/d，#]&]，n/d]，Min@@#>=d&]]，{d，Select[s，Diviible[n，#]&]}]；

%t选择[Range[nn]，facsusing[dat，#]={}&]

%Y A181818是超原件的版本，补充A336426。

%Y A336496是超级工厂的版本，补充了A336497。

%Y A336620是补码。

%Y A000837统计相对素分区，严格情况下为A007360。

%Y A001055统计因子分解。

%Y A302696列出了带有互质质指数的数字。

%Y A304711列出了具有互质不同质数指数的数字。

%Y参见A001221、A007360、A007916、A056239、A112798、A302569、A327516、A333228、A335238、A335.239、A335240、A336424、A336497、A336736。

%K nonn公司

%O 1,2号机组

%A _Gus Wiseman_，2020年8月2日