login
The 4-cycle of the n => sigma(n)-n process. sigma(n) is the sum of divisors of n. (A000203).
4

%I #7 Feb 16 2025 08:32:46

%S 1264460,1547860,1727636,1305184,1264460

%N The 4-cycle of the n => sigma(n)-n process. sigma(n) is the sum of divisors of n. (A000203).

%C The two smallest members of sociable quadruples (1264460 and 2115324, see A090615) were found by the Canadian mathematician and educator Kenneth Dudley Fryer (1924-1984) in 1965 (Honsberger, 1970). These were the first aliquot cycles of length greater than 2 that were found since 1918 (see A072890 and A072891). They were rediscovered by Cohen (1970). - _Amiram Eldar_, Mar 24 2024

%D Ross Honsberger, Ingenuity in Mathematics, Mathematical Association of America, 1970.

%H Henri Cohen, <a href="https://doi.org/10.1090/S0025-5718-1970-0271004-6">On amicable and sociable numbers</a>, Math. Comp., Vol. 24, No. 110 (1970), pp. 423-429.

%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/SociableNumbers.html">Sociable Numbers</a>.

%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Sociable_number">Sociable number</a>.

%F a(4+n) = a(n).

%t NestWhileList[DivisorSigma[1, #] - # &, 1264460, UnsameQ, All] (* _Amiram Eldar_, Mar 24 2024 *)

%Y Cf. A000203, A001065, A072890, A072891, A090615.

%K fini,full,nonn,changed

%O 1,1

%A _Miklos Kristof_, Jul 29 2002