OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
n=996 has 3 distinct prime divisors, 2, 3, and 83, while phi(996) = 328 = 2*2*2*41 has only 2 distinct prime factors.
MATHEMATICA
Select[Range[100], PrimeNu[EulerPhi[#]] < PrimeNu[#] &] (* G. C. Greubel, May 13 2017 *)
PROG
(PARI) is(n)=my(f=factor(n)); omega(eulerphi(f)) < #f~ \\ Charles R Greathouse IV, Mar 04 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 11 2000
STATUS
approved