A127662-OEIS公司

A127662号

其无限等分序列以无限完美数结尾的整数(A007357号).

6、30、42、54、60、66、72、78、90、100、140、148、152、192、194、196、208、220、238、244、252、268、274、292、296、298、300、336、348、350、360、364、372、374、380、382、386、400、416、420、424、476、482、492、516、520、532、540、542、544、550、572、576、578、586 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1，1`
	链接	`阿米拉姆·埃尔达尔，n=1..75时的n，a（n）表` `格雷姆·L·科恩，关于整数的无穷除数，数学。公司。，54 (1990), 395-411.` `J.O.M.Pedersen，等分循环表.[断开的链接]` `J.O.M.Pedersen，等分循环表.[通过Internet Archive Wayback-Machine]` `J.O.M.Pedersen，等分循环表.[缓存副本，仅限pdf文件]`
	例子	`a（5）＝60，因为其无限等分序列以无限完美数结束的第五个数是60。` `6 -> 6 ...` `30 -> 42 -> 54 -> 66 -> 78 -> 90 -> 90 -> ..` `42 -> 54 -> 66 -> 78 -> 90 -> 90 -> ..` `54 -> 66 -> 78 -> 90 -> 90 -> ..` `60 -> 60 -> ..` `66 -> 78 -> 90 -> 90 -> ..` `72 -> 78 -> 90 -> 90 -> ..` `78 -> 90 -> 90 -> ..` `90 -> 90 -> ..` `100 -> 30 -> 42 -> 54 -> 66 -> 78 -> 90 -> 90 -> ..` `102 -> 114 -> 126 -> 114 -> .. 循环，但不在序列中` `114 -> 126 -> 114 -> .. 循环但不按顺序` `126 -> 114 -> 126 -> ..` `140 -> 100 -> 30 -> 42 -> 54 -> 66 -> 78 -> 90 -> 90 -> ..` `148 -> 42 -> 54 -> 66 -> 78 -> 90 -> 90 -> ..` `152 -> 148 -> 42 -> 54 -> 66 -> 78 -> 90 -> 90 -> ..` `192 -> 148 -> 42 -> 54 -> 66 -> 78 -> 90 -> 90 -> ..` `194 -> 100 -> 30 -> 42 -> 54 -> 66 -> 78 -> 90 -> 90 -> ..` `196 -> 54 -> 66 -> 78 -> 90 -> 90 -> ..` `208 -> 30 -> 42 -> 54 -> 66 -> 78 -> 90 -> 90 -> ..` `210 -> 366 -> 378 -> 582 -> 594 -> 846 -> 594 -> ..` `220 -> 140 -> 100 -> 30 -> 42 -> 54 -> 66 -> 78 -> 90 -> 90 -> ..` `238->194->100->30->42->54->66->78->90->90->。。` `244 -> 66 -> 78 -> 90 -> 90 -> ..` `246 -> 258 -> 270 -> 450 -> 330 -> 534 -> 546 -> 798 -> 1122 -> 1470 -> 2130 -> 3054 -> 3066 -> 4038 -> 4050 -> 2346 -> 2838 -> 3498 -> 4278 -> 4938 -> 4950 -> 4410 -> 4590 -> 8370 -> 14670 -> 14850 -> 22590 -> 22770 -> 29070 -> 35730 -> 35910 -> 79290 -> 79470 -> 79650 -> 107550 -> 79650 -> ..`
	MAPLE公司	`isA007357:=进程（n）` `A049417号（n） =2*n；` `简化（%）；` `结束过程：` `isA127662:=进程（n）` `局部trac，x；` `x：=n；` `trac:=[x]；` `虽然是真的` `x（x）：=A049417号（x） -trac[-1]；` `如果x=0，则` `返回false；` `那么在trac中的elif x` `返回值为A007357（x）；` `结束条件：；` `trac：=[op（trac），x]；` `结束do：` `结束过程：` `从1到n do` `如果是A127662（n），则` `printf（“%d，\n”，n）；` `结束条件：；` `结束do:#R.J.马塔尔2017年10月5日`
	数学	指数列表[n_Integer，factors_List]：={#，IntegerExponent[n，#]}&/@factors；无穷除数[1]：={1}；无限除数[n_Integer？正]：=模块[{factors=First/@FactorInteger[n]，d=Divisors[n]}，d[[Flatten[Position[Transpose[Thread[Function[{f，g}，BitOr[f，g]==g][#，Last[#]]]&/@Transpose[Last/@ExponentList[#，factors]//@d]]，_？（和@@#&），{1}]]]]]空；properinfinitarydivisorsum[k_]：=加@@InfinitaryDivisors[k]-k；g[n_]：=如果[n>0，properinfinitearydivisorsum[n]，0]；iTrajectory[n_]：=大多数[NestWhileList[g，n，UnsameQ，All]]；无限完美数字Q[0]=假；无限完美数字Q[k_Integer]：=如果[properinfinitarydivisorsum[k]==k，真，假]；选择[Range[500]，InfinitaryPerfectNumberQ[Last[iTrajectory[#]]&] `s[n_]：=倍@@（1+Power@@@FactorInteger[n]）-n；s[0]=s[1]=0；q[n_]：=模块[｛v=NestWhileList[s，n，UnnameQ，All]}，v[[-1]]！=n&&v[[-2]]==v[[-1]]>0]；选择[范围[3200]，q](阿米拉姆·埃尔达尔2023年3月11日）`
	交叉参考	`囊性纤维变性。A007357号,A126168号,A127661号-A127667号.` `上下文中的序列：A002445号 2017年11月 A130512型A003062号 A327157型 A336216飞机` `相邻序列：A127659号 A127660型 127661英镑A127663号 A127664号 A127665号`
	关键词	`坚硬的,非n`
	作者	`蚂蚁王2007年1月26日`
	扩展	`来自的更多条款阿米拉姆·埃尔达尔2023年3月11日`
	状态	`已批准`