%I #12 Feb 19 2024 10:28:16
%S 1,2,4,6,90,408,5856,2200352,11524640,90200997888
%N Numbers n such that n | Sigma(n) + d(n) + Phi(n).
%t Do[If[Mod[DivisorSigma[1, n]+DivisorSigma[0, n]+EulerPhi[n], n]==0, Print[n]], {n, 1, 10^7}]
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Jul 24 2000
%E a(7) corrected and a(10) added by _Donovan Johnson_, Nov 12 2012