A161005 Sums of adjacent amicable numbers, a(n) = A063990(2n-1) + A063990(2n).

504, 2394, 5544, 10584, 12600, 21600, 26880, 35712, 129948, 134087, 140760, 155834, 176363, 222750, 245520, 263970, 283974, 321906, 348128, 357184, 382092, 405876, 589160, 675958, 755008, 829994, 892800, 955206, 1017792, 1048320

Offset: 1

Author

Claudio Meller, Jun 01 2009

Keywords

• nonn
• less

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

Examples

			a(1) = 504 = 220 + 284.
a(2) = 2394 = 1184 + 1210.
a(3) = 5544 = 2620 + 2694.
		

Links

• T. D. Noe, Table of n, a(n) for n=1..1000

Crossrefs

Cf. A063990, A259180.

Programs

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}]
(* Roger L. Bagula, May 29 2010, based on Ant King's Mathematica program from A063990 *)

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