%I#14 2023年8月16日11:05:38

%S 0,1,1,2,1,1,1,1,2,1,1,1,1,1,1,1,3,1,1,11,1,1,1,1,1,2,2,1,1,1，

%T 1,2,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,11,1,1,1，1,1,1,1-1,1,1,1，

%U 1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1,3,1,1,11,1,1

%N假设存在唯一模式，满足（平均）=（中值）=（模式）的N的分解数。

%C多集合中的模式是一个元素，它的出现次数至少与其他元素的出现次数相同。例如，{a、a、b、b、b、b、c、d、d、d}中的模式是{b、d}。

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

%C第一次出现n的位置是：（1，2，4，16，64，5832，4096，…）。

%e因式分解6*9*9*12=5832的平均数为9，中位数为9，模式为{9}，因此在a（5832）下计算。

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

%电子邮箱2 4 16 64 5832 4096

%e 2*2 4*4 8*8 18*18*18 64*64

%e 2*2*2x2 4*4*4 6*9*9*12 8*8*8x8

%e 2*2*2x2*2*2 3*6*6*9 16*16*16

%e 2*3*3*3*3*3*4 4*4*4*4*4

%e 2*2*2x2*2*2%2*2+2*2*2\2*2

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

%t模式[ms_]：=选择[Union[ms]，Count[ms，#]>=最大@@Length/@Split[ms]&]；

%t表[Length[Select[facs[n]，{Mean[#]}=={Median[#]{=modes[#]&]]，{n，100}]

%Y仅（平均值）=（中位数）：A359909，请参见A240219、A359889、A359、910、A359911。

%Y隔板的型号为A363719，不相等的A363720。

%Y表示不等，而不是相等，我们有A363742。

%Y A000041统计整数分区。

%Y A001055统计因子分解，严格A045778，订购A074206。

%Y A089723统计常数分解。

%Y A316439按长度、A008284分区计算因子分解。

%Y A326622使用整数平均数计算因子分解，严格为A328966。

%Y A339846计数偶数长度因子分解，A339890计数奇数长度。

%Y参见A237984、A326567/A326568、A327472、A359893、A363723、A363/727、A363740。

%K nonn公司

%O 1,4个

%A _古斯·维塞曼_，2023年6月26日