编辑
经核准的
选择[Range[800000],Divisible[DivisorSigma[11,#]-EulerPhi[#]^11,#]&](*哈维·P·戴尔2018年4月15日*)
sigma_11(n)是11-第个第十一n的除数的幂(A013959号).
检验过的
提议的
Do[If[Mod[DivisorSigma[11,n]-EulerPhi[n]^11,n]==0,Print[n]],{n,1, 10^5}]
囊性纤维变性。A000010号.
定义已更正 通过和更多来自米歇尔·马库斯2014年3月2日