%I A102925
%S A102925 1020,2060,1228,1020,2356,2435,467,4988,6187,5471,4275,6133,5251,3960,
%T A102925 8280,4606
%V A102925 1020,2060,-1228,1020,-2356,2435,467,-4988,-6187,-5471,4275,-6133,-5251,
               3960,-8280,
%W A102925 4606
%N A102925 Imaginary part of Gaussian amicable numbers in order of increasing magnitude. 
               See A102924 for the real part.
%t A102925 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]]]
%Y A102925 Sequence in context: A104444 A157510 A015160 this_sequence A024020 A069791 
               A088290
%Y A102925 Adjacent sequences: A102922 A102923 A102924 this_sequence A102926 A102927 
               A102928
%K A102925 sign
%O A102925 1,1
%A A102925 T. D. Noe (noe(AT)sspectra.com), Jan 19 2005