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

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

%温度1,5,1,1,1,5,1,1,3,3,1,1,7,1,3,1,31,1,5,1,51,1,1,1,9,1,1,4,1,1,3，

%U 1,1,1,9,1,1,3,3,1,1,7,2,1,1,9,1,1,1,5,1,91,3,1,1,1,10,1,3,1,51,1

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

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

%H Antti Karttunen，n的表格，n=1..65537的a（n）</a>

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

%F a（2^n）=A330995（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 A331024（n）=分母（A001055（n）/A045778（n））；\\_Antti Karttunen，2021年5月27日

%1的Y位置包括A001248和A005117的所有元素。不在A167207中的1的第一个位置是128。

%Y分子是A331023。

%Y四舍五入商为A331048。

%Y整数分区也是A330995。

%Y参考A001055、A005117、A045778、A045779、A045780、A045782、A045783、A325755、A326028、A326622、A328966、A330972、A330977、A330991。

%K nonn，压裂

%O 1,8型

%A _Gus Wiseman_，2020年1月8日

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