A102924 Real part of Gaussian amicable numbers in order of increasing magnitude. See A102925 for the imaginary part.
-1105, -1895, -2639, -3235, -3433, -3970, -4694, -3549, -766, -4478, -6880, 5356, -6468, 8008, 4232, -8547
Offset: 1
Examples
For z=-1105+1020i, we have s(z)=-2639-1228i and s(s(z))=z.
Links
- R. Spira, The Complex Sum Of Divisors, American Mathematical Monthly, 1961 Vol. 68, pp. 120-124.
- Eric Weisstein's World of Mathematics, Amicable Pair
Programs
-
Mathematica
s[z_Complex] := DivisorSigma[1, z]-z; nn=10000; lst={}; Do[d=a^2+b^2; If[d
Comments