A102925 Imaginary part of Gaussian amicable numbers in order of increasing magnitude. See A102924 for the real part.
1020, 2060, -1228, 1020, -2356, 2435, 467, -4988, -6187, -5471, 4275, -6133, -5251, 3960, -8280, 4606
Offset: 1
Keywords
Programs
-
Mathematica
s[z_Complex] := DivisorSigma[1, z]-z; nn=10000; lst={}; Do[d=a^2+b^2; If[d