检验过的

经核准的

提出

检验过的

编辑

提出

6, 28, 60, 84, 90, 120, 336, 496, 840, 924, 1008, 1080, 1260, 1320, 1440, 1680, 1980, 2016, 2160, 2184, 2520, 2772, 3024, 3420, 3600, 3780, 4680, 5040, 5940, 6048, 6552, 7440, 7560, 7800, 8128, 8190, 8280, 9240, 9828, 9900,10080,10530,11088,11400,13680

非n,更多,美好的

a（41）-a（45）来自阿米拉姆·埃尔达尔2018年12月27日

经核准的

编辑

检验过的

经核准的

提出

检验过的

编辑

提出

r[s_，n_，f_]：=Catch[If[n==1，s==1，Block[{p，e}，Do[e=1；而[Mod[n，p^e]==0，r[s*（p^（e+1）-1）/（p-1），n/p^e，p]&&投掷@True; e++]，{p，选择[除数@n，f<#&]}]]；错误]]；

假脱机Q[n_]：=r[1/2/n，n，1]&&DivisorSigma[-1，n]！=2;

perfectQ[n_]：=除数Sigma[1，n]==2*n；

选择[Range[10^4]，spoofQ[#]||perfectQ[#]&](*Jean-François Alcover公司，2017年5月16日，使用乔瓦尼·雷斯塔的代码A174292号*)

经核准的

编辑

编辑

经核准的

这个 正确的 手 边 R（右）.S公司.小时.定义中第二个方程的2n=。。。，等于除数之和sigma（n），如果所有的fi都是不同的素数。如果没有，就会出现一些模糊性：请参阅A174292号供进一步讨论-M.F.哈斯勒2013年1月13日

经核准的

编辑