|
|
抵消
|
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，上次@应用[Intersection，Map[Select[Divisors[#]，Function[d，CoprimQ[d，#/d]]&，{#1，#2/#1}]==1，False]@@{div，n}；aQ[n]：=模块[｛d=bsigma[n]-2n}，如果[d<=0，False，biunitaryDivisiorQ[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
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
