|
Search: id:A102925
|
|
|
| A102925 |
|
Imaginary part of Gaussian amicable numbers in order of increasing magnitude. See A102924 for the real part. |
|
+0
2
|
|
| 1020, 2060, -1228, 1020, -2356, 2435, 467, -4988, -6187, -5471, 4275, -6133, -5251, 3960, -8280, 4606
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
s[z_Complex] := DivisorSigma[1, z]-z; nn=10000; lst={}; Do[d=a^2+b^2; If[d<nn^2, z=a+b*I; Do[If[s[s[z]]==z, AppendTo[lst, {d, z}]]; z=z*I, {4}]], {a, nn}, {b, nn}]; Im[Transpose[Sort[lst]][[2]]]
|
|
CROSSREFS
|
Sequence in context: A104444 A157510 A015160 this_sequence A024020 A069791 A088290
Adjacent sequences: A102922 A102923 A102924 this_sequence A102926 A102927 A102928
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
T. D. Noe (noe(AT)sspectra.com), Jan 19 2005
|
|
|
Search completed in 0.002 seconds
|
