Revision as of 15:28, 15 June 2021 (view source) Not a robot (talk \| contribs) (Add BASIC) ← Older edit		Revision as of 18:37, 20 June 2021 (view source) Shuisman (talk \| contribs) No edit summary Newer edit →
Line 927: [3, 9, 15, 27, 39, 81, 111, 183, 243, 255, 327, 363, 471, 729, 2187, 2199, 3063, 4359, 4375, 5571] </pre> =={{header\|Mathematica}} / {{header\|Wolfram Language}}== <lang Mathematica>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</lang> {{out}} <pre>{3,9,15,27,39,81,111,183,243,255,327,363,471,729,2187,2199,3063,4359,4375,5571}</pre> =={{header\|Nim}}==

Perfect totient numbers: Difference between revisions

Perfect totient numbers (view source)