cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A339681 Larger of amicable pair a < b such that the ratio of their number of divisors d(a)/d(b) sets a new record.

This page as a plain text file.
%I A339681 #4 Dec 12 2020 19:52:46
%S A339681 284,365084,2062570,75866014,176374564,11698280566,33269758575,
%T A339681 1003691825703,1014479274802,154378742017851,4431391475513830,
%U A339681 10007834494951772,16164656139746247464,44908741933335600957
%N A339681 Larger of amicable pair a < b such that the ratio of their number of divisors d(a)/d(b) sets a new record.
%C A339681 The terms are ordered according to their lesser counterparts (A339680).
%C A339681 The terms were calculated using data from Chernykh's site.
%H A339681 Sergei Chernykh, <a href="http://sech.me/ap/">Amicable pairs list</a>.
%t A339681 s[n_] := DivisorSigma[1, n] - n; rm = 0; seq = {}; Do[m = s[n]; If[m > n && s[m] == n && (r = Divide @@ DivisorSigma[0, {n, m}]) > rm, rm = r; AppendTo[seq, m]], {n, 1, 10^7}]; seq
%Y A339681 Cf. A000005, A002025, A002046, A063990, A328063, A339680.
%K A339681 nonn,more
%O A339681 1,1
%A A339681 _Amiram Eldar_, Dec 12 2020