登录
复合无平方数n,使得p+tau(n)除以n+sigma(n),其中p是n的素因子,tau(n)=A000005号(n) 和σ(n)=A000203号(n) ●●●●。

%I#17 2018年1月16日02:45:02

%S 1077816471173534394531304443371967892342531727067820512335,

%电话:21179143507063077729231395506557103081993104707029140419077,

%电话:240626953287947933822276768998237475716081542331918313911221989194470072632397677

%N复合无平方数N,使得p+tau(N)除以N+sigma(N),其中p是N的素因子,tau(N)=A000005(N)和sigma。

%C A120944的后续。

%e 10778的素因子为2、17、317,σ(10778)=17172,τ(10778=8。

%e 10778+17172=27950和27950/(2+8)=279527950/(17+8)=111827950/。

%p与(数字理论);P: =proc(q)局部a、b、c、i、ok、P、n;

%p表示n从2到q do如果不是素数(n),则a:=ifactors(n)[2];确定:=1;

%p表示i从1到nops(a)do,如果a[i][2]>1,则ok:=0;断裂;

%p否则,如果不是类型((n+sigma(n))/(a[i][1]+τ(n),整数),则ok:=0;断裂;fi;fi;od;如果ok=1,则打印(n);fi;fi;od;结束:P(2*10^6);

%Y参见A000005、A000203、A228299-A2288302、A229273、A229174、A229270。

%K nonn公司

%O 1,1号机组

%A _Paolo P.Lava,2013年9月19日

%2013年9月20日,由_Giovanni Resta_更正的E a(4)和a(7)-a(26)

%E第一项由Paolo P.Lava删除,2013年9月23日