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

Links

Table of n, a(n) for n=1..33.

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]

Crossrefs

Sequence in context: A356378 A258656 A112323 * A076556 A324776 A325891

Adjacent sequences: A102504 A102505 A102506 * A102508 A102509 A102510

Keyword

nonn

Author

T. D. Noe, Jan 12 2005

Status

approved