A002046 - OEIS

%I M5435 N2363 #86 Nov 17 2023 11:49:43

%S 284,1210,2924,5564,6368,10856,14595,18416,76084,66992,71145,87633,

%T 88730,124155,139815,123152,153176,168730,176336,180848,203432,202444,

%U 365084,389924,430402,399592,455344,486178,514736,525915,669688,686072

%N Larger of amicable pair.

%C The elements 76084, 123152, etc. are intentionally out of numerical order so that a(n) and A002025(n) form amicable pairs. - _Michael B. Porter_, Apr 17 2010

%C All terms are deficient (A005100). - _Michel Marcus_, Mar 10 2013

%C For the related amicable pairs see A259180. - _Omar E. Pol_, Jul 15 2015

%D N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).

%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

%D For additional references see A002025.

%H T. D. Noe and Sergei Chernykh, <a href="/A002046/b002046.txt">Table of n, a(n) for n = 1..415523</a> [All terms such that the smaller number A002025(n) is < 10^17. Terms 39375 through 415523 were computed by Sergei Chernykh]

%H J. Bell, <a href="http://arXiv.org/abs/math.NT/0409196">A translation of Leonhard Euler's "On amicable numbers"</a>, arXiv:math/0409196 [math.HO], 2004-2009.

%H S. Chernykh, <a href="http://sech.me/ap/">Amicable pairs list</a>

%H E. B. Escott, <a href="/A002025/a002025.pdf">Amicable numbers</a>, Scripta Mathematica, 12 (1946), 61-72 [Annotated scanned copy]

%H M. Garcia, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL4/GARCIA/millionc.html">A Million New Amicable Pairs</a>, J. Integer Seqs., Vol. 4 (2001), #01.2.6.

%H S. S. Gupta, <a href="http://www.shyamsundergupta.com/amicable.htm">Amicable Numbers</a>

%H Hisanori Mishima, <a href="http://www.asahi-net.or.jp/~KC2H-MSM/mathland/math09/ami02.htm">First 236 amicable pairs</a>

%H D. Moews, <a href="http://djm.cc/amicable.html">Perfect, amicable and sociable numbers</a>

%H Passawan Noppakaew and Prapanpong Pongsriiam, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL26/Pongsriiam/pong43.html">Product of Some Polynomials and Arithmetic Functions</a>, J. Int. Seq. (2023) Vol. 26, Art. 23.9.1.

%H J. O. M. Pedersen, <a href="http://amicable.homepage.dk/knwnap.htm">Known Amicable Pairs</a> [Broken link]

%H J. O. M. Pedersen, <a href="http://amicable.homepage.dk/tables.htm">Tables of Aliquot Cycles</a> [Broken link]

%H J. O. M. Pedersen, <a href="http://web.archive.org/web/20140502102524/http://amicable.homepage.dk/tables.htm">Tables of Aliquot Cycles</a> [Via Internet Archive Wayback-Machine]

%H J. O. M. Pedersen, <a href="/A063990/a063990.pdf">Tables of Aliquot Cycles</a> [Cached copy, pdf file only]

%H T. Trotter, Jr., <a href="http://www.trottermath.net/numthry/amicable.html">Amicable Numbers</a> [Warning: As of March 2018 this site appears to have been hacked. Proceed with great caution. The original content should be retrieved from the Wayback machine and added here. - _N. J. A. Sloane_, Mar 29 2018]

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/AmicablePair.html">Amicable Pair</a>

%F a(n) = A259180(2n) = A180164(n) - A259180(2n-1) = A180164(n) - A002025(n). - _Omar E. Pol_, Jul 15 2015

%p f:= proc(t) uses numtheory; local s;

%p   s:= sigma(t) - t; s > t and sigma(s) - s = t

%p end proc;

%p Am1:= select(f,[$1..10^6]);

%p map(numtheory:-sigma,Am1); # _Robert Israel_, Jul 16 2015

%t amicableQ[n_] := With[{s = DivisorSigma[1, n] - n}, r = n != s && n == DivisorSigma[1, s] - s; If[r, mate[n] = s; True, False]]; mate /@ Select[ Range[lim], amicableQ[#] && # < mate[#] &] (* _Jean-François Alcover_, Sep 20 2011 *)

%t Table[DivisorSigma[1, A002025[n]] - A002025[n], {n, 50}] (* _T. D. Noe_, Sep 20 2011 *)

%o (PARI) aliquot(n)=sigma(n)-n

%o isA002046(n)={local(a);a=aliquot(n);a<n && aliquot(a)==n} \\ _Michael B. Porter_, Apr 17 2010

%Y Cf. A002025, A063990, A180164, A259180.

%K nonn,nice

%O 1,1

%A _N. J. A. Sloane_

%E More terms from Larry Reeves (larryr(AT)acm.org), Oct 25 2000