搜索: 电话:a303358
|
|
|
|
1, 2, 8, 10, 12, 32, 112, 128, 136, 144, 152, 184, 512, 1088, 2048, 2144, 2272, 2528, 2736, 3248, 3312, 4592, 7936, 8192, 9800, 11800, 17176, 18632, 18904, 22984, 32768, 32896, 33664, 34688, 49024, 57152, 77248, 85952, 131072, 176400, 212400, 309168, 335376
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
例子
|
112位于序列中,因为它的双优除数之和是1+2+7+8+14+16+56+112=216,并且2*112-216=8是112的双优除数。
|
|
数学
|
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=2n-bsigma[n]},如果[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,2*n-sig)\\米歇尔·马库斯2018年4月27日
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.005秒内完成
|