A061644-OEIS公司

A061644号

“右完全数”：形式为1的素数+一个完全数。

7, 29, 33550337, 137438691329 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,1`
	评论	`里维拉网页的读者（我相信这是间接基于这个条目）后来表明，前39个完全数中没有更多的例子-N.J.A.斯隆，2004年5月25日。最新消息是，前44个完全数中没有更多的例子-M.F.哈斯勒2008年6月5日` `所以在44个已知的完美数P=2^（P-1）*（2^P-1）中，P+1是P=2,3,13和19的唯一素数。` `如果p在序列中，那么对于每个正整数k，p^k是方程sigma（phi（x））=2x-2的解。证明：取序列相关定理中t=2A093034号. [M.F.哈斯勒和法里德·菲鲁兹巴赫特2014年9月9日]`
	链接	`n=1..4时的n，a（n）表。` `梅森论坛，螺纹10336` `C.里维拉，谜题203`
	配方奶粉	`P（P）*[P（P）+1]/2+1是素数，其中P（P）是梅森素数。（修正人：Lekraj Beedassy公司2009年5月1日）`
	数学	pn={6，28，496，8128，33550336，8589869056，137438691328，2305843008139952128，2658455991569831744692615953842176，1915619426082361072993378084303638130997321548169216}；lst={}；做[p=pn[[n]]+1；如果[PrimeQ[p]，AppendTo[lst，p]]，{n，Length[pn]}]；第一。。。和/或。。。PerfectNum[n_]：=加号@@除数[n]/2；lst={}；Do[p=PerfectNum[n]；如果[p==n&&PrimeQ[p+1]，追加到[lst，p+1]]，{n，10！}]；第一次(弗拉基米尔·约瑟夫·斯蒂芬·奥尔洛夫斯基2009年1月27日）
	程序	`（PARI）对于素数（p=2100，p=2^p-1；Q=p*（p+1）/2+1；if（isprime（P）&&isprim（Q），打印1（Q，“，”））\\爱德华·江2014年9月10日`
	交叉参考	`囊性纤维变性。A000396号.` `类似的左右多个完全数在A093034号,A094467号.` `上下文中的序列：A122119号 A300528型 A157422号A053621号 A339098型 A210107型` `相邻序列：A061641号 A061642号 A061643号A061645号 A061646号 A061647号`
	关键词	`更多,非n`
	作者	`拉博斯·埃利默2001年6月14日`
	状态	`已批准`