%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日
|