login
A039779
Numbers k such that phi(k) is equal to A008473(k).
2
1, 54, 99, 112, 540, 3344, 4743, 6720, 7644, 8307, 11088, 12852, 15225, 20300, 22320, 83160, 86304, 94944, 129504, 160208, 186992, 200640, 205712, 207264, 266266, 280592, 331731, 364941, 383724, 404550, 441232, 445050, 447876, 449072, 454575, 458052, 497781
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
Sequence in context: A088986 A259717 A118150 * A044143 A044524 A095962
KEYWORD
nonn
STATUS
approved