A247825-OEIS公司

A247825型

二元除数和一元除数之和的差值。

24, 240, 360 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,1`
	评论	`10 ^8之前无其他条款。6、60和90这三个唯一的双修道士完美与否有关系-米歇尔·马库斯2014年10月5日` `a（4）如果存在，则大于10^11-乔瓦尼·雷斯塔2017年4月15日`
	链接	`n=1..3时的n，a（n）表。` `C.R.墙，双酉完美数，程序。美国数学。Soc.33（1）（1972）39-42。` `维基百科，酉除数`
	例子	`24的除数是1、2、3、4、6、8、12、24。一元除数是1、3、8、24，它们的和是36。双优除数是1、2、3、4、6、8、12、24，它们的和是60。则60-36=24。` `240的除数是1、2、3、4、5、6、8、10、12、15、16、20、24、30、40、48、60、80、120、240。一元除数是1、3、5、15、16、48、80、240，它们的和是408。双优除数为1、2、3、5、6、8、10、15、16、24、30、40、48、80、120、240，其和为648。然后648-408=240。`
	MAPLE公司	`Q： =proc（n）局部a，e，p，f；a： =1；对于ifactors（n）[2]中的f，做e:=op（2，f）；p： =op（1，f）；` `如果类型为（e，奇数），则a:=a（p^（e+1）-1）/（p-1）；否则a:=a（（p^（e+1）-1）/（p-1）-p^（e/2））；fi；od:a；结束时间：` `P： =proc（h）局部a，b，k，n；` `对于从1到h的n，做a:=除数（n）；b： =0；` `对于从1到nops（a）的k，如果gcd（a[k]，n/a[k]）=1，那么b:=b+a[k'；fi；od；` `如果Q（n）-b=n，则打印（n）；fi；od；结束：P（10^6）；`
	程序	`（PARI）向上（p，e）=p^e+1；` `bup（p，e）=my（ret=（p^（e+1）-1）/（p-1））；如果（（e%2）==0，ret-=p^（e/2））；ret；` `isok（n）=f=系数（n）；n==（prod（k=1，#f~，bup（f[k，1]，f[k、2]））-prod（k=1，#f~，up（f[k,1]，f[k，2]））\\米歇尔·马库斯2014年10月5日`
	交叉参考	`囊性纤维变性。A034448号,A064591号,A188999号.` `上下文中的序列：A213560型 A159506号 A081863号A003264号 A003272号 A003245号` `相邻序列：A247822型 A247823型 A247824号A247826号 A247827号 A247828号`
	关键词	`非n,更多,布雷夫`
	作者	`保罗·拉瓦2014年9月29日`
	状态	`已批准`