OFFSET
1,1
COMMENTS
The terms are ordered according to their lesser counterparts (A339678).
The terms were calculated using data from Chernykh's site.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..55
Sergei Chernykh, Amicable pairs list.
MATHEMATICA
s[n_] := DivisorSigma[1, n] - n; dm = 0; seq = {}; Do[m = s[n]; If[m > n && s[m] == n && (d = Plus @@ DivisorSigma[0, {n, m}]) > dm, dm = d; AppendTo[seq, m]], {n, 1 , 10^6}]; seq
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Dec 12 2020
STATUS
approved