OFFSET
1,2
COMMENTS
Complement of A112588.
LINKS
Eric Weisstein's World of Mathematics, Totient Function
Eric Weisstein's World of Mathematics, Divisor Function
MATHEMATICA
Select[Range[150], EulerPhi[#]<=2DivisorSigma[0, #]&] (* Harvey P. Dale, Mar 04 2013 *)
PROG
(PARI) is(n)=eulerphi(n)<=2*numdiv(n) \\ Charles R Greathouse IV, Feb 21 2013
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
Reinhard Zumkeller, Sep 14 2005
STATUS
approved