%I #14 Jul 02 2021 01:53:24
%S 1,54,99,112,540,3344,4743,6720,7644,8307,11088,12852,15225,20300,
%T 22320,83160,86304,94944,129504,160208,186992,200640,205712,207264,
%U 266266,280592,331731,364941,383724,404550,441232,445050,447876,449072,454575,458052,497781
%N Numbers k such that phi(k) is equal to A008473(k).
%e phi(54) = 18, 54 = 2^1*3^3, (2+1)*(3+3) = 18.
%t 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 *)
%Y Cf. A000010, A008473.
%K nonn
%O 1,2
%A _Olivier Gérard_