%I#8 2021年4月8日22:13:01
%S 1,2,4,9,13,16,18,25,36,37,49,50,61,64,73,81,97100101109113121,
%电话137144157169173181193225229241242256257277281289313,
%电话:317324325333373533613733974040942143344145748454512954154957577578601613617625641
%N编号k,以便A003415(σ(k))<k。
%H<a href=“/index/Si#SIGMAN”>与sigma(n)相关序列的索引条目</a>
%t选择[Range[641],If[#2<2,0,#2 Total[#2/#1&@@@FactorInteger[#2]]]<#1&@@{#,DivisorSigma[1,#]}&](*_Michael De Vlieger_,2021年4月8日*)
%o(PARI)
%o A003415(n)=如果(n<=1,0,my(f=系数(n));n*和(i=1,#f~,f[i,2]/f[i,1]);
%o isA343216(n)=(A003415(西格玛(n))<n);
%Y参考A000203、A003415。
%Y参见A343217(补充)。
%K nonn公司
%O 1,2号机组
%2021年4月8日,安提·卡图宁
|