%I#11 2021年5月28日00:56:07

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

%T 1,9,1,1,1,7,1,1,4,4,1,12,2,4,1,4,1,71,1,7,1,7,1,1,1,4,11,1,1，

%U 4,1,1,1,16,1,1,4,4,1,12,5,1,11,1,1,1,7,11,1,4,1,1,1,1,1,19,14,4,9,1,1,1,7,1

%N分子：因子分解除以严格因子分解A001055（N）/A045778（N）。

%n的因子分解是一个积n为n的有限的、非递减的正整数序列。如果因子都不同，则它是严格的。因子分解和严格因子分解分别按A001055和A045778计算。

%H Antti Karttunen，<a href=“/A331023/b331023.txt”>n的表，a（n）表示n=1..65537</a>

%H<a href=“/index/Eu#epf”>根据n的因式分解中的指数计算序列的索引项</a>

%F a（2^n）=A330994（n）。

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

%t表格[Length[facs[n]]/Length[Select[facs[n]，UnsameQ@@#&]]，{n，100}]//分子

%o（PARI）

%o A001055（n，m=n）=如果（1==n，1，my（s=0）；对于div（n，d，如果（（d>1）&&（d<=m），s+=A001055（n/d，d））；（s） ）；

%o A045778（n，m=n）=（（n<=m）+总和（n，d，如果（d>1）&&（d<=m；

%o A331023（n）=分子（A001055（n）/A045778（n））；\\_Antti Karttunen，2021年5月27日

%1的Y位置为A005117。

%2的Y位置显示为A001248。

%Y分母为A331024。

%Y四舍五入商为A331048。

%Y整数分区也是A330994。

%Y参见A001055、A001222、A002033、A045778、A04577、A045780、A04578、A04573、A325755、A326028、A326622、A328966、A330972、A33097、A330991。

%K nonn，压裂

%O 1,4型

%A _Gus Wiseman_，2020年1月8日

%E更多条款来自安蒂·卡图宁，2021年5月27日