A136446-OEIS公司

136446英镑

对n进行编号，使数{1<d<n:d的某些子集除以n}之和等于n。

12, 18, 24, 30, 36, 40, 42, 48, 54, 56, 60, 66, 72, 78, 80, 84, 90, 96, 100, 102, 108, 112, 114, 120, 126, 132, 138, 140, 144, 150, 156, 160, 162, 168, 174, 176, 180, 186, 192, 196, 198, 200, 204, 208, 210, 216, 220, 222, 224, 228, 234, 240, 246 (列表；图表；参考；听；历史；文本；内部格式)

	抵消	`1,1`
	评论	`这是伪完美数的子集A005835号因此无缺陷(A023196号)，但考虑到实际丰富的数字的定义(A005101号). 序列A122036号列出奇数丰富的数字(A005231号)它们不在这个序列中。到目前为止，351351是我们唯一知道的。（到今天为止，没有奇怪的事(A006037号：丰富但非伪完美）数量已知。）-M.F.哈斯勒2008年4月13日` `这个序列包含无穷多个奇数元素：序列中存在任何伪完美数的任何真倍数，因此序列中存在奇数伪完美数奇数真倍数。第一个是2835=3*945（在b文件中）-富兰克林·T·亚当斯-沃特斯2009年6月18日` `A211111型（a（n））>1-莱因哈德·祖姆凯勒2012年4月4日`
	参考文献	`姆拉登·瓦西列夫，关于除数的两个定理，布尔。《数论相关主题12》（1988年），第10-19页。`
	链接	`M.F.Hasler，n=1..24491的n，a（n）表（确认人R.J.马塔尔2011年3月20日）。`
	MAPLE公司	isA136446a:=proc（s，n）如果s中有n，则返回true；elif加（i，i=s）<n，然后返回false；elif nops（s）=1，则为（op（1，s）=n）；else sl:=排序（convert（s，list），`>`）；对于i从1到nops（sl），执行m:=op（i，sl）；如果n-m=0，则返回true；结束条件：；如果n-m>0，则sr:=[op（i+1…nops（sl），sl）]；如果procname（convert（sr，set），n-m），则返回true；结束条件：；结束条件：；结束do；返回false；结束条件：；结束进程： `isA136446：=进程（n）是A136446a（数字[除数]（n）减去{1，n}，n）；结束进程：` `对于从1到400的n，如果是A136446（n），则执行printf（“%d，”，n）；结束条件：；末端do#R.J.马塔尔2011年3月20日`
	数学	`okQ[n_]：=模[{d}，如果[PrimeQ[n]，False，d=大多数[Rest[Divisors[n]]]；成员Q[Plus@@@子集[d]，n]]]；选择[范围[2，246]，okQ]` `(T.D.诺伊2012年7月24日）`
	黄体脂酮素	`（PARI）` `N=72\\达到该值` `vv=矢量（N）；` `{对于（n=2，n，` `if（isprime（n），next（））；` `d=除数（n）；` `d=矢量（#d-2，j，d[j+1]）；\\不是n，不是1` `对于（k=1，（1<<#d）-1，\\所有子集` `t=植物提取物（d，k）；` `如果（n==总和（j=1，#t，t[j]），` `vv[n]+=1；）；）` `对于（j=1，#vv，如果（vv[j]>0，print1（j，“，”））\\A005835号（修正后）` `（PARI）是_A136446号（n，d=除数（n））={#d>2&is_A005835号（n，d[2..-2]）}\\替换了不符合当前PARI语法的旧代码-M.F.哈斯勒2016年7月28日` `对于（n=1，10^4，是_136446英镑（n） &&打印1（n“，”）\\M.F.哈斯勒2008年4月13日` `（哈斯克尔）` `a136446 n=a136446_列表！！（n-1）` `a136446_list=映射（+1）$findIndices（>1）a21111_list` `--莱因哈德·祖姆凯勒2012年4月4日` `（圣人）` `def isa（s，n）：#在R.J.Mathar的Maple代码之后` `if n in s：返回True` `如果总和<n：返回False` `如果长度==1：返回s[0]==n` `对于范围（长度-1，-1，-1）中的i：` `d=n-s[i]` `如果d==0：返回True` `如果d>0：` `如果isa（s[i+1:]，d）：返回True` `返回False` `isA136446=λn：isa（除数（n）[1:-1]，n）` `[如果是A136446（n），则n代表（1..246）中的n]` `#彼得·卢什尼2012年7月23日`
	交叉参考	`请参见A005835号（考虑除数1）。` `囊性纤维变性。A122036号=A005231号\A136446号.` `上下文中的序列：A297925型 A341099型 A175837号A074726号 A341475型 A091013型` `相邻序列：A136443号 A136444号 A136445号136447英镑 A136448号 A136449号`
	关键词	`非n`
	作者	`乔格·阿恩特2008年4月6日`
	扩展	`更多术语来自M.F.哈斯勒2008年4月13日`
	状态	`经核准的`