OFFSET
1,1
COMMENTS
The terms are ordered according to the their larger counterparts (A054572). - Amiram Eldar, Jan 19 2019
EXAMPLE
140 is in the sequence since it is the lesser member of the pair (140, 182), and sigma(140) = sigma(182) = 336 = 140 + 182 + gcd(140, 182).
MATHEMATICA
seq={}; Do[s1 = DivisorSigma[1, n]; Do[s2 = DivisorSigma[1, m]; If[s2 == s1 && s2 == n + m + GCD[n, m], AppendTo[seq, m]], {m, 1, n-1}], {n, 1, 1000}]; seq (* Amiram Eldar, Jan 19 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Corrected and extended by R. J. Mathar, Oct 19 2006
Name corrected and data corrected and extended by Amiram Eldar, Jan 19 2019
STATUS
approved