login
A102532
Imaginary part of absolute Gaussian perfect numbers, in order of increasing magnitude.
6
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
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
KEYWORD
nonn
AUTHOR
T. D. Noe, Jan 13 2005
EXTENSIONS
a(22)-a(45) from Amiram Eldar, Feb 10 2020
STATUS
approved