OFFSET
1,1
COMMENTS
EXAMPLE
MATHEMATICA
totSum[n_] := Plus @@ FixedPointList[EulerPhi@# &, n] - n - 1; amicableTotQ[n_] := If[Nest[totSum, n, 2] == n && totSum[n] != n, True, False]; Select[Range[10^9], amicableTotQ[#] &]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, May 04 2017
STATUS
approved