OFFSET
1,1
COMMENTS
Values are sorted along increasing A002025. - R. J. Mathar, Jul 19 2009, Jul 23 2009
REFERENCES
For references see A002025.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..415523
FORMULA
EXAMPLE
a(7) = 2310 because the 7th pair of amicable numbers is 12285 and 14595; and 14595 - 12285 = 2310.
MATHEMATICA
With[{s = PositionIndex@Array[DivisorSigma[1, #] &, 10^6]}, Flatten@ Map[Differences, Apply[Join, Map[Function[n, Select[Subsets[Lookup[s, n], {2}], Total@ # == n &]], Sort@ Select[Keys@ s, Length@ Lookup[s, #] > 1 &]]]]] (* Michael De Vlieger, Oct 22 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert A. Stump (bee_ess107(AT)yahoo.com), Jan 06 2002
EXTENSIONS
A-number in comment corrected by R. J. Mathar, Jul 23 2009
STATUS
approved