搜索: a303358-编号:a303388
|
|
|
|
24, 40, 56, 80, 88, 104, 120, 224, 360, 432, 672, 832, 992, 1008, 1296, 1456, 1504, 1584, 1888, 1952, 2016, 2160, 2800, 3800, 5624, 5800, 7424, 7616, 9112, 10080, 11096, 13736, 15872, 16256, 17816, 22848, 24448, 28544, 30592, 32128, 33728, 51136, 62464, 66368
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
例子
|
24是按顺序排列的,因为它的双优除数之和是1+2+3+4+6+8+12+24=60,60-2*24=12是24的双优除数。
|
|
数学
|
f[n_]:=选择[Divisors[n],函数[d,互质Q[d,n/d]]];bsigma[m_]:=除数和[m,#&,最后一个@交叉点[f@#,f[m/#]]==1&];双单位除数Q[div_,n_]:=如果[Mod[#2,#1]==0,上次@应用[交集,映射[Select[Divisions[#],函数[d,CoprimeQ[d,#/d]]&,{#1,#2/#1}]]==1,False]&@@{div,n};aQ[n_]:=模[{d=bsigma[n]-2n},如果[d<=0,False,双单位除数Q[d,n]]];s={};做[If[aQ[n],AppendTo[s,n]],{n,1,10000}];秒
|
|
黄体脂酮素
|
(PARI)udivs(n)={my(d=除数(n));选择(x->(gcd(x,n/x)==1),d);}
gcud(n,m)=vecmax(setintersect(udivs(n),udives(m)));
biudivs(n)=选择(x->(gcud(x,n/x)==1),除数(n));
isok(n)=我的(divs=biudivs(n),sig=vecsum(divs));(sig>2*n)&&vecsearch(divs,sig-2*n)\\米歇尔·马库斯2018年4月27日
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.018秒内完成
|