OFFSET
1,1
COMMENTS
This sequence includes the smallest member of all exponential amicable pairs and does not discriminate between primitive and nonprimitive pairs.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Peter Hagis, Jr., Some results concerning exponential divisors, International Journal of Mathematics and Mathematical Sciences, Vol. 11, No. 2, (1988), pp. 343-349.
David Moews, Perfect, amicable and sociable numbers.
J. M. Pedersen, Known exponential amicable pairs.
FORMULA
The values of m for which esigma(m)=esigma(n)=m+n and m<n, where esigma is defined in A051377.
EXAMPLE
a(3)=937692 because (937692,968436) is the third exponential amicable pair
MATHEMATICA
fun[p_, e_] := DivisorSum[e, p^# &]; esigma[1] = 1; esigma[n_] := Times @@ fun @@@ FactorInteger[n]; s = {}; Do[m = esigma[n] - n; If[m > n && esigma[m] - m == n, AppendTo[s, n]], {n, 1, 10^7}]; s (* Amiram Eldar, May 09 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ant King, Dec 21 2006
EXTENSIONS
More terms from Amiram Eldar, May 09 2019
STATUS
approved