Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #6 Mar 24 2024 03:59:17
%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="http://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
%O 1,1
%A _Miklos Kristof_, Jul 29 2002