OFFSET
1,1
COMMENTS
Warning: The numbers being summed will not always belong to the same amicable pair. See A180164 for the sums of amicable pairs. - Jeppe Stig Nielsen, Jan 27 2015
LINKS
T. D. Noe, Table of n, a(n) for n=1..1000
EXAMPLE
a(1) = 504 = 220 + 284.
a(2) = 2394 = 1184 + 1210.
a(3) = 5544 = 2620 + 2694.
MATHEMATICA
s[n_] := DivisorSigma[1, n] - n;
AmicableNumberQ[n_] := If[Nest[s, n, 2] == n && ! s[n] == n, True, False];
a = Select[Range[10^6], AmicableNumberQ[ # ] &];
Table[a[[n + 1]] + a[[n]], {n, 1, Length[a], 2}]
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Claudio Meller, Jun 01 2009
EXTENSIONS
Corrected and extended by Roger L. Bagula, May 29 2010
Edited by N. J. A. Sloane, Aug 14 2010, at the suggestion of Jason G. Wurtzel
STATUS
approved