A102532 Imaginary part of absolute Gaussian perfect numbers, in order of increasing magnitude.

7, 42, 57, 82, 78, 189, 341, 549, 664, 1048, 1016, 3776, 4072, 1672, 5049, 3816, 1128, 368, 7097, 2504, 6816, 7912, 10743, 12605, 12606, 248, 10392, 16853, 15208, 20824, 344, 15688, 392, 18076, 1340, 22302, 5912, 1573, 24392, 21328, 24896, 7048, 1220, 29288, 9678

Offset: 1

Author

T. D. Noe, Jan 13 2005

Keywords

• nonn

Comments

See A102531 for the real part.

Links

• Amiram Eldar, Table of n, a(n) for n = 1..76

Crossrefs

Cf. A102531, A102506, A102507, A101366, A101367.

Programs

Mathematica

lst={}; nn=1000; Do[z=a+b*I; If[Abs[z]<=nn && Abs[(DivisorSigma[1, z]-z)] == Abs[z], AppendTo[lst, {Abs[z]^2, z}]], {a, nn}, {b, nn}]; Im[Transpose[Sort[lst]][[2]]]

Extensions

a(22)-a(45) from Amiram Eldar, Feb 10 2020