%I#15 2024年3月6日14:47:48

%S 1,1,1,1,2,1,1,1,1,1,2,1,3,1,2,1,1,3,1,3,3,2,2,1,4,1,2,3,1,5,1,1,2,2，

%温度2,5,1,2,2,4,1,5,1,3,3,2,1,5,1,3A,2,3,1,4,2,2,1,9,1,2,3,1,2,5,13,3，

%U 2,5,1,6,1,2,3,3,2,5,15,1,2,1,9,2,2

%N将N分解为大于1的正整数的次数，以便可以为每个因子选择不同的素因子。

%例如，因子分解f=2*3*6有两种方法来选择每个因子的素因子，即（2,3,2）和（2,3,1），但这两种方法都没有所有不同的元素，因此f不计入a（36）中。

%F a（n）=A001055（n）-A368413（n）。

%e选定n的a（n）因子分解：

%电子1 6 12 24 30 60 72 120

%e 2*3 2*6 2*12 2*15 2*30 2*36 2*60

%e 3*4 3*8 3*10 3*20 3*24 3*40

%e 4*6 5*6 4*15 4*18 4*30

%e 2*3*5 5*12 6*12 5*24

%e 6*10 8*9 6*20

%e 2*3*10 8*15

%e 2*5*6 10*12

%e 3*4*5 2*3*20

%e 2*5*12

%e 2*6*10

%e 3*4*10

%e 3*5*8

%e 4*5*6英寸

%t facs[n_]：=如果[n<=1，{{}}，连接@@表[Map[Prepend[#，d]&，选择[facs[n/d]，Min@@#>=d&]]，{d，Rest[Divisors[n]]}]；

%t表格[Length[Select[facs[n]，Select[Tuples[First/@FactorInteger[#]&/@#]，UnsameQ@@#&]={}&]]，{n，100}]

%Y对于标记图：A133686，补充A367867、A367868、A140638。

%Y对于未标记的图形：A134964，补充A140637。

%Y对于集合系统：A367902，排名A367906，补充A367903，排名A367 907。

%Y对于非同构集合系统：A368095，补充A368094、A368409。

%Y互补非同构多集分区：A368097、A355529、A368411。

%Y对于非同构多组分区：A368098、A368100。

%Y补码由A368413计数。

%Y对于非同构集多部：A368422，补码A368421。

%Y对于除数而非素因子：A370813，补足A370814。

%Y A001055统计因子分解，严格来说是A045778。

%Y A007716统计连接的A007718非同构多集分区。

%Y A058891计数设定系统，未标记A000612，连接A323818。

%Y A283877统计连接的A300913非同构集合系统。

%Y参见A340596、A340653、A367769、A367901、A368187、A368412、A36841。

%K nonn公司

%O 1,6型

%A _Gus Wiseman_，2023年12月29日