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,1

Comments

See A102531 for the real part.

Links

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

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]]]

Crossrefs

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

Sequence in context: A290045 A188066 A225327 * A297405 A044109 A195320

Adjacent sequences: A102529 A102530 A102531 * A102533 A102534 A102535

Keyword

nonn

Author

T. D. Noe, Jan 13 2005

Extensions

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

Status

approved