%I#12 2020年7月25日10:36:26
%S 1,1,1,7,1,1,1,5,13,1,7,7,1,1,31,13,5,7,11,1,5,7,5,5,6,5,1,1,7,
%T 1,1,1,91,19,5,7,5,7,1,11,7,13,1,1,31,19,31,1,49,1,5,1,5,5,5,7,31,1,
%U 13127,7,1,17,7,1,1,16,5,37,19,35,1,7,5,31121,7,7,7,11,15,5,5,13,7,7,1,1,5,7,49
%N a(N)=A065330(sigma(N。
%C序列从n的除数之和的素因式分解中删除素因子2和3。
%H Antti Karttunen,n的表,n=1..10000的a(n)</a>
%H Antti Karttunen,<a href=“/A336457/A336457.txt”>数据补充:n,a(n)为n=1.65537计算</a>
%H<a href=“/index/Si#SIGMAN”>与sigma(n)相关序列的索引条目</a>
%F a(n)=A065330(A000203(n))=A038502(A161942(n)。
%F与a(p^e)的乘法=A065330(1+p+p^2+…+p^e)。
%t数组[Times@@Map[#1^#2&@@#&,DeleteCase[FactorInteger[DivisorSigma[1,#]],_?(第一个@#<=3&)]&,97](*Michael De Vlieger_,2020年7月24日*)
%o(PARI)
%o A065330(n)=(n>>估价(n,2)/3^估价(n、3));
%o A336457(n)=A065330(西格玛(n));
%Y参见A000203、A038502、A065330、A161942、A336458。
%Y另请参阅A336455。
%K nonn,多个
%O 1,4型
%2020年7月24日,安蒂·卡图内
|