This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A102925 #3 Mar 30 2012 17:22:35
%S A102925 1020,2060,-1228,1020,-2356,2435,467,-4988,-6187,-5471,4275,-6133,
%T A102925 -5251,3960,-8280,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]]]
%K A102925 sign
%O A102925 1,1
%A A102925 _T. D. Noe_, Jan 19 2005