%I#12 2019年9月26日09:05:16
%第2,4,28,40448500380条
%N EulerPhi(sigma(EulerPhi))-完全数,其中算术函数f的f-完全数在A066218中定义。
%C 449和10^5之间没有术语。还有其他条件吗?有无限多吗?
%C 10^9以下无其他条款。-_Amiram Eldar,2019年9月26日
%H J.Pe,<a href=“http://jlpe.tripod.com/gpn/fperfect.htm“>关于完全数的推广,《数学评论》,31(3)(2002-2003),168-172。
%e设f(n)=EulerPhi(σ(EulerPi(n))。28的适当除数={1,2,4,7,14};f值之和=1+1+2+4=12=f(28);因此28属于该序列。
%t f[x_]:=EulerPhi[DivisorSigma[1,EulerPhi[x]]];选择[Range[1,10^5],2*f[#]==应用[Plus,Map[f,Divisors[#]]&]
%Y参考A000010、A000203、A066218。
%K nonn,更多
%O 1,1号机组
%A _Joseph L.Pe_,2001年12月18日
%E a(6)来自_Amiram Eldar,2019年9月26日
|