A079541 Numbers n such that phi(n) = d(n).
1, 3, 8, 10, 18, 24, 30
Offset: 1
Keywords
References
- D. S. Mitrinovic et al., Handbook of Number Theory, Kluwer, p. 11.
Programs
-
Mathematica
Select[Range[500],EulerPhi[#]==DivisorSigma[0,#]&] (* Harvey P. Dale, Jun 18 2011 *)
Extensions
Corrected by Harvey P. Dale, Jun 18 2011
Comments