A102507 The imaginary part of a complex multiperfect number, see A102506.

3, 5, 2, 10, 18, 88, 12, 24, 20, 84, 120, 440, 950, 32, 209, 60, 418, 3800, 2256, 768, 120, 1280, 310, 200, 1152, 3840, 600, 4680, 404, 1712, 1240, 6240, 5016

Offset: 1

Author

T. D. Noe, Jan 12 2005

Keywords

• nonn

Programs

Mathematica

lst={}; Do[z=n+k*I; s=DivisorSigma[1, z]; If[Mod[s, z]==0, AppendTo[lst, z]; Print[{z, s, s/z}]], {n, 1200}, {k, 10000}]; Im[lst]