%I#13 2021年7月21日00:44:00
%S 1,2,10,1210408052806720174721372801742090816029621760,
%电话:311001604187904089806089240960101391360143969280226652160,
%电话:4667942407321036807604889607941248091601664091838208095149824010011724801365450240315194880094663040
%N酉亏完全数:酉亏数k,使得2*k-usigma(k)是k的酉除数,其中usigma是k的幺正除数之和(A034448)。
%C A271816的统一版本。
%e 120在序列中,因为2*120-乌西玛(120)=240-216=24,并且24是120的酉除数。
%t usigma[n_]:=如果[n==1,1,Times@@(1+Power@@@FactorInteger[n])];aQ[n_]:=模块[{d},d=2n-usigma[n];如果[d<=0,False,Divisible[n,d]&&GCD[d,n/d]==1]];选择[范围[100000],aQ]
%Y参见A034448、A271816、A303357。
%K nonn公司
%O 1,2号机组
%A _Amiram Eldar,2018年4月22日
%E a(19)-a(31)摘自_Giovanni Resta_,2018年4月26日
|