9 lines
222 B
Text
9 lines
222 B
Text
ClearAll[PerfectTotientNumberQ]
|
|
PerfectTotientNumberQ[n_Integer] := Total[Rest[Most[FixedPointList[EulerPhi, n]]]] == n
|
|
res = {};
|
|
i = 0;
|
|
While[Length[res] < 20,
|
|
i++;
|
|
If[PerfectTotientNumberQ[i], AppendTo[res, i]]
|
|
]
|
|
res
|