The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #8 Mar 01 2017 08:44:53
%S 1500,1570,1714,1718,1722,1768,2062,2066,2070,2084,2120,2220,2276,
%T 2328,2348,2578,2582,2586,2760,3218,3222,3328,3428,3552,3704,3736,
%U 3792,3864,3984,4192,4324,4332,4400,4480,4656,5088,5128,5464,5544,5856,5872,6200
%N The values within a cycle of length 53 of the map x->A098189(x), sorted.
%C See various attractors in A098191-A098195.
%H Michael De Vlieger, <a href="/A098191/b098191.txt">Table of n, a(n) for n = 1..53</a>
%e The map has a trajectory 1500->2120->2084->1570->...->6660->9672->13248->11376->..->1768->1500 (returning
%e to the first term). The sequence contains all 53 members of this individual cycle, resorted to increasing magnitude.
%t Union@ NestList[Function[n, DivisorSum[n, # &, CoprimeQ[#, n/#] &] - EulerPhi@ n], 1500, 53] (* _Michael De Vlieger_, Mar 01 2017 *)
%Y Cf. A034449, A000010, A063919, A098189-A098195.
%K nonn,fini
%O 1,1
%A _Labos Elemer_, Sep 03 2004
%E Edited by _R. J. Mathar_, Mar 02 2009