%I#5 2018年10月23日20:59:23

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

%温度2,8,1,2,2,5,1,5,1,3,3,2,1,7,2,3,3,1,5,2,2,2,1,9,1,2,3,1,3，

%U 2,5,1,9,1,2,3,3,2,5,1,7,4,2,1,9,2,2

%N将N分解为因子>1的集多部分（多集）的数量，以便所有部分具有相同的乘积。

%F a（n）=和{d|A052409（n）}二项式（A045778（n^（1/d））+d-1，d）。

%e a（144）=20组多部分：

%e（2*3*4*6）（2*8*9）（2x72）（144）

%e（2*6）*（2*六）（3*6*8）（3x48）

%e（2*6）*（3*4）（2*3*24）（4*36）

%e（3*4）*（3*四）（2*4*18）（6*24）

%e（2*6*12）（8*18）

%e（3*4*12）（9*16）

%e（12）*（2*6）（12）x（12）

%e（12）*（3*4）

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

%t表[With[{g=GCD@@FactorInteger[n][[All，2]]}，Sum[二项式[Length[strfacs[n^（1/d）]]+d-1，d]，{d，Divisors[g]}]，{n，100}]

%Y参见A001055、A001970、A045778、A050336、A052409、A089259、A294786、A296132、A319269、A320886、A320887、A320889。

%K nonn公司

%O 1,4型

%A _Gus Wiseman_，2018年10月23日