A303358-OEIS公司

A303358型

双酉亏完美数：双酉亏数字k，使得2*k-bsigma（k）是k的双酉除数，其中bsigma（k）是k的双酉除数的和(A188999号).

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`
	评论	`双总统版本的A271816型.` `包括2的所有奇数幂(A004171号).`
	链接	`阿米拉姆·埃尔达尔，n=1.171时的n，a（n）表`
	例子	`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，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<2n）&&vecsearch（divs，2n-sig）\\米歇尔·马库斯2018年4月27日`
	交叉参考	`囊性纤维变性。A004171号,A188999号,A271816型,A292982型,A303359.` `上下文中的序列：A328954型 A343500型 A176969号A176464号 A102278号 A110961号` `相邻序列：A303355型 A303356型 A303357型A303359型 A303360型 A303361型`
	关键词	`非n`
	作者	`阿米拉姆·埃尔达尔和迈克尔·德弗利格2018年4月22日`
	状态	`经核准的`