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

Crossrefs

Cf. A063990, A259180.

Sequence in context: A226265 A277114 A269038 * A259953 A180164 A263286

Adjacent sequences: A161002 A161003 A161004 * A161006 A161007 A161008

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