login
Numbers n such that n | Sigma(n) + d(n) + Phi(n).
0

%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