%I#17 2019年5月12日17:11:43

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

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

%U 1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1_1,1,1,1、1,1、1,1,1、1,1、1,1,1和1,1,1

%N N！的因子分解数！到阶乘数>1。

%F a（n）=1+A034876（n）。

%e n=10：

%e（6*120*5040）

%e（720*5040）

%e（3628800）

%e n=16：

%e（2*2*2x2*1307674368000）

%e（2*120*87178291200）

%e（2092278988000）

%e n=24：

%e（2*2*6*25852016738884976640000）

%e（24*25852016738884976640000）

%电子邮箱：620448401733239436000

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

%t表[Length[facs[n！，Rest[Array[#！&，n]]]，{n，15}]

%Y参见A000142、A011371、A022559、A034876、A03487、A076934、A109100、A109101、A109102、A115627、A135291、A322583、A325272、A325270、A325266、A325508、A325510、A325511。

%K nonn公司

%0、5

%A _Gus Wiseman_，2019年5月8日

%E来自_Alois P.Heinz的更多条款，2019年5月8日