OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..20000
EXAMPLE
Consider the first amicable pair [220, 284]. The smaller member has 12 divisors, they are 1, 2, 4, 5, 10, 11, 20, 22, 44, 55, 110, 220. The larger member has 6 divisors, they are 1, 2, 4, 71, 142, 284. So a(1) = 12 and a(2) = 6.
MATHEMATICA
With[{s = Array[{#, DivisorSigma[1, #] - #} &, 10^5]}, DivisorSigma[0, #] &@ Flatten@ DeleteDuplicates[Sort /@ Select[Reverse /@ s, And[! FreeQ[s, #], UnsameQ @@ #] &]]] (* Michael De Vlieger, Oct 08 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Oct 02 2019
STATUS
approved