A083209-OEIS公司

A083209号

除数集合中只有一个子集的数，使得补码具有相同的和。

6, 12, 20, 28, 56, 70, 88, 104, 176, 208, 272, 304, 368, 464, 496, 550, 650, 736, 836, 928, 992, 1184, 1312, 1376, 1504, 1696, 1888, 1952, 2752, 3008, 3230, 3392, 3770, 3776, 3904, 4030, 4288, 4510, 4544, 4672, 5056, 5170, 5312, 5696, 5830, 6208, 6464 (列表；图表；参考；听；历史；文本；内部格式)

	抵消	`1,1`
	评论	`A083206号（a（n））=1；完全数(A000396号)是一个子集；问题：是奇怪的数字吗(A006037号)一个子集？` `奇怪的数字A006037号不是此序列的子集。第一个丢失的奇怪数字是A006037号(8) = 10430. -阿洛伊斯·海因茨2009年10月29日` `所有形式为p*2^k的数都是在k>0和奇数素数p介于2^（k+1）/3和2^-T.D.诺伊2010年7月8日`
	链接	`T.D.Noe，n=1..407时的n，a（n）表（条款<10^6）` `埃里克·魏斯坦的数学世界，完美数字。` `埃里克·魏斯坦的数学世界，奇怪的数字。` `莱因哈德·祖姆凯勒（Reinhard Zumkeller），初始术语说明`
	例子	`n=20:2+4+5+10=1+20，20是一个项(A083206号(20)=1).`
	MAPLE公司	with（numtheory）：b:=proc（n，l）选项记住；局部m、ll、i；m： =nops（l）；如果n<0，那么0 elif n=0，那么1 elif m=0，或者加上（i，i=l）<n，那么0其他ll：=子图（m=NULL，l）；b（n，ll）+b（n-l[m]，ll）fi-end:a:=proc（n）选项记忆；局部i，k，l，m，r；对于来自“if”的k（n＝1，1，a（n-1）+1）do l：＝sort（[除数（k）[]）；m： =iquo（加上（i，i=l），2，‘r’）；如果r=0且b（m，l）=2，则打破fiod；k端：seq（a（n），n=1..30）#阿洛伊斯·海因茨2009年10月29日
	数学	b[n_，l_]：=b[n，l]=模[{m，ll，i}，m=长度[l]；其中[n<0，0，n==0，1，m==0\|\|总计[l]<n，0，True，ll=ReplacePart[l，m->Nothing]；b[n，ll]+b[n-l[[m]]，ll]]；a[n_]：=a[n]=模[{i，k，l，m，r}，对于[k=如果[n==1，1，a[n-1]+1]，真，k++，l=除数[k]；{m，r}=商余数[Total[l]，2]；如果[r==0&&b[m，l]==2，则中断[]]]；k] ；表[打印[“a（”，n，“）=”，a[n]]；a[n]，{n，1,50}](Jean-François Alcover公司，2017年1月31日，之后阿洛伊斯·海因茨)
	交叉参考	`囊性纤维变性。A005101号,A005835号,A064771号.` `上下文中的序列：A356141型 A079760型 A109895号A339858型 A080714号 A116368号` `相邻序列：A083206年 A083207号 A083208号A083210号 A083211号 A083212号`
	关键词	`非n`
	作者	`莱因哈德·祖姆凯勒2003年4月22日`
	扩展	`来自的更多条款阿洛伊斯·海因茨2009年10月29日`
	状态	`经核准的`