A125225-OEIS公司

A125225号

数n，使得n-1可以表示为n的除数子集的和。

1, 2, 4, 6, 8, 12, 16, 18, 20, 24, 28, 30, 32, 36, 40, 42, 48, 54, 56, 60, 64, 66, 70, 72, 78, 80, 84, 88, 90, 96, 100, 104, 108, 112, 120, 126, 128, 132, 140, 144, 150, 156, 160, 162, 168, 176, 180, 192, 196, 198, 200, 204, 208, 210, 216, 220, 224, 228, 234, 240, 252 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,2`
	评论	`这个定义与半完美数的定义有关(A005835号). 每个实用数字(A005153号)属于此序列，但不一定反之亦然；例如，70在这个序列中，但不实用。此序列中的每个数字n都有sigma（n）>=2n-1(A103288号)但是，尽管数量丰富，102并不在这个序列中。` `这些数字可以用来构建Premchand Anne描述的类型的遗传谜题（参见链接）。` `序列是否包含A005231号（奇数丰富的数字）-罗伯特·伊斯雷尔2016年8月5日`
	链接	`T.D.Noe，n=1..1000时的n，a（n）表` `Premchand Anne，埃及分数与继承问题，《大学数学杂志》29（4）（1998）296-300。`
	例子	`70在这个序列中，因为70-1=69=35+14+10+7+2+1，和中的所有数字都是70的除数。`
	MAPLE公司	`ss：=进程（n，S）局部S，Sp；选项记忆；` `如果n=0，则返回true` `elif S={}然后返回false` `fi；` `s： =最大值（s）；` 如果s>n，则返回procname（n，select（`<=`，s，n）） `elif s=n则返回true` `fi；` `s： =最小值（s）；` `Sp:=子（s=NULL，s）；` `如果s>n，则为假` `else进程名（n-s，Sp）或进程名（n，Sp）` `fi（菲涅耳）` `结束进程：` `选择（n->ss（n-1，数字：-除数（n）），[$1..1000]）#罗伯特·伊斯雷尔2016年8月5日`
	数学	`okQ[n_]：=带[{dd=除数[n]}，AnyTrue[Range[Length[dd]，1，-1]，AnyTrue[Subsets[dd，{#}]，Total[#]==n-1&]&]]；okQ[1]=正确；` `选择[范围[1000]，okQ](Jean-François Alcover公司2020年7月23日）`
	黄体脂酮素	`（PARI）padbin（n，len）＝｛b＝二进制（n）；while（length（b）＜len，b＝concat（0，b）；）；b；｝` `isok（n）={如果（n==1，返回（1））；d=除数（n）；nbd=#d；对于（i=1，2^nbd-1，b=padbin（i，nbd）；s=总和（j=1，nbd，d[j]*b[j]）；如果（s==（n-1），返回（一））；）；返回（0）；}\\米歇尔·马库斯2013年8月30日`
	交叉参考	`参见。A005835号,A000225号,A005153号,A103288号.` `上下文中的序列：A301587型 A319796型 A103288号A092903号 A005153号 A174973号` `相邻序列：A125222号 A125223号 A125224号A125226号 A125227号 A125228号`
	关键字	`非n`
	作者	`大卫·艾普斯坦2007年1月13日`
	状态	`经核准的`