%I#8 2023年1月25日09:09:00

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

%温度2,6,1,2,2,4,1,4,1,3,3,2,1,6,2,3,3,1,4,2,2,2,1,7,1,2,3,1,3，

%U 2,4,1,7,1,2,3,3,2,4,16,4,2,1,6,2,2

%N将N分解为因子>1的整数分解次数，平均值与中值相同。

%C多集的中位数是中间部分（对于奇数长度）或两个中间部分的平均值（对于偶数长度）。

%e n=24，36，60，120，144，360的a（n）因子分解：

%e 24 36 60 120 144 360电话

%e 3*8 4*9 2*30 2*60 2*72 4*90

%e 4*6 6*6 3*20 3*40 3*48 5*72

%e 2*12 2*18 4*15 4*30 4*36 6*60

%e 2*3*4 3*12 5*12 5*24 6*24 8*45

%e 2*2*3*3 6*10 6*20 8*18 9*40

%e 3*4*5 8*15 9*16 10*36

%e 10*12 12*12 12*30

%e 4*5*6 2*2*6*6 15*24

%e 2*6*10 3*3*4*4 18*20

%e 2*3*4*5 2*180

%e 3*120

%e 2*10*18

%e 3*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]，Mean[#]==Median[#]&]]，{n，100}]

%Y分区的版本是A240219，补充A359894。

%Y这些多组按A359889进行排名。

%Y严格分区的版本是A359897。

%Y奇怪的箱子是A359910。

%Y补码由A359911计数。

%Y A001055统计因子分解。

%Y A058398按平均数计算分区，另见A008284、A327482。

%Y A326622计数具有整数平均值的因子分解，严格的A328966。

%Y A359893和A359901按中间值和奇长A359902计算分区。

%Y参见A316313、A326567/A326568、A359906、A360005。

%K nonn公司

%O 1,4型

%A _Gus Wiseman_，2023年1月24日