A307052 Larger of amicable numbers pair m < n such that A307037(m) = n and A307037(n) = m.

5, 17, 80, 257, 1280, 4352, 8060, 65537, 327680, 1065220, 1089452, 1114112, 16842752, 100340800, 383479200, 466344000000

Offset

1,1

Comments

The terms are ordered according to their lesser counterparts (A307051).

a(17) > 4*10^12. - Giovanni Resta, Mar 24 2019

Links

Table of n, a(n) for n=1..16.

Mathematica

f[p_, e_] := p^e + (-1)^e; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; s={}; Do[m = a[n]; If[m > n && a[m] == n, AppendTo[s, m]], {n, 1, 10^7}]; s

Crossrefs

Cf. A307037, A307038, A307051.

Sequence in context: A149747 A149748 A151494 * A369262 A053418 A151882

Adjacent sequences: A307049 A307050 A307051 * A307053 A307054 A307055

Keyword

nonn,more

Author

Amiram Eldar, Mar 21 2019

Extensions

a(16) from Giovanni Resta, Mar 24 2019

Status

approved