A098191 The values within a cycle of length 53 of the map x->A098189(x), sorted.

1500, 1570, 1714, 1718, 1722, 1768, 2062, 2066, 2070, 2084, 2120, 2220, 2276, 2328, 2348, 2578, 2582, 2586, 2760, 3218, 3222, 3328, 3428, 3552, 3704, 3736, 3792, 3864, 3984, 4192, 4324, 4332, 4400, 4480, 4656, 5088, 5128, 5464, 5544, 5856, 5872, 6200

Offset: 1

Author

Labos Elemer, Sep 03 2004

Keywords

• nonn
• fini

Comments

See various attractors in A098191-A098195.

Examples

			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.
		

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..53

Crossrefs

Cf. A034449, A000010, A063919, A098189-A098195.

Programs

Mathematica

Union@ NestList[Function[n, DivisorSum[n, # &, CoprimeQ[#, n/#] &] - EulerPhi@ n], 1500, 53] (* Michael De Vlieger, Mar 01 2017 *)

Extensions

Edited by R. J. Mathar, Mar 02 2009