OFFSET
1,2
EXAMPLE
phi(54) = 18, 54 = 2^1*3^3, (2+1)*(3+3) = 18.
MATHEMATICA
Reap[For[n = 1, n < 500000, n++, If[EulerPhi[n] == Times @@ Plus @@@ FactorInteger[n], Print[n]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, May 06 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved