登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
搜索: a303358-编号:a303388
显示1-1个结果(共1个)。 第页1
    排序:关联|参考文献||被改进的|创建     格式:长的|短的|数据
A303359型 双优近完美数:双优富足数k,使得富足数d=bsigma(k)-2*k是k的双优除数,其中bsigma(A188999号). +10
2
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
评论
双总统版本的A181595号.
链接
阿米拉姆·埃尔达尔,n=1..183时的n,a(n)表
例子
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,双单位除数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日
交叉参考
囊性纤维变性。A153501号A181595号18899年A292982型A303358型.
关键词
非n
作者
状态
已批准
第页1

搜索在0.005秒内完成

查找|欢迎|维基|寄存器|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年3月29日03:41。包含371264个序列。(在oeis4上运行。)