|
Search: id:A102532
|
|
|
| A102532 |
|
Imaginary part of absolute Gaussian perfect numbers, in order of increasing magnitude. See A102531 for the real part. |
|
+0
4
|
|
| 7, 42, 57, 82, 78, 189, 341, 549, 664, 1048, 1016, 3776, 4072, 1672, 5049, 3816, 1128, 368, 7097, 2504, 6816
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
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: A053676 A002701 A057006 this_sequence A044109 A110451 A057425
Adjacent sequences: A102529 A102530 A102531 this_sequence A102533 A102534 A102535
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
T. D. Noe (noe(AT)sspectra.com), Jan 13 2005
|
|
|
Search completed in 0.002 seconds
|
