OFFSET
1,1
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..53
EXAMPLE
The map has a trajectory 1500->2120->2084->1570->...->6660->9672->13248->11376->..->1768->1500 (returning
to the first term). The sequence contains all 53 members of this individual cycle, resorted to increasing magnitude.
MATHEMATICA
Union@ NestList[Function[n, DivisorSum[n, # &, CoprimeQ[#, n/#] &] - EulerPhi@ n], 1500, 53] (* Michael De Vlieger, Mar 01 2017 *)
CROSSREFS
KEYWORD
nonn,fini
AUTHOR
Labos Elemer, Sep 03 2004
EXTENSIONS
Edited by R. J. Mathar, Mar 02 2009
STATUS
approved