%I
%S 102,114,126,388,436,484,812,866,1020,1036,1040,1116,1140,1196,1260,
%T 1380,1500,1524,1532,1552,1618,1644,1716,1724,1726,1744,1916,2020,
%U 2066,2068,2324,2368,2386,2486,2592,2684,2880,2924,3032,3098,3120,3124,3136
%N Initial values for iteration of A063919(x) function such that iteration ends in a 2cycle, i.e., "attracted" by unitary amicable numbers, A063991.
%H Amiram Eldar, <a href="/A097037/b097037.txt">Table of n, a(n) for n = 1..1000</a>
%e n = 866: list = {866, 436, 114, 126, 114} ending in 2cycle of [114, 126].
%t s[n_] := If[n > 1, Times @@ (1 + Power @@@ FactorInteger[n])  n, 0]; useq[n_] := Most[NestWhileList[s, n, UnsameQ, All]]; amiQ[k_] := Module[{s1 = s[k]}, s1 != k && s[s1] == k]; aQ[n_] := amiQ[Last[useq[n]]]; Select[Range[5000], aQ] (* _Amiram Eldar_, Apr 06 2019 *)
%Y Cf. A002827, A063919, A063991, A097024, A097030A097036.
%K nonn
%O 1,1
%A _Labos Elemer_, Aug 30 2004
