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 A102507 #3 Mar 30 2012 17:22:35
%S A102507 3,5,2,10,18,88,12,24,20,84,120,440,950,32,209,60,418,3800,2256,768,
%T A102507 120,1280,310,200,1152,3840,600,4680,404,1712,1240,6240,5016
%N A102507 The imaginary part of a complex multiperfect number, see A102506.
%t A102507 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]
%K A102507 nonn
%O A102507 1,1
%A A102507 _T. D. Noe_, Jan 12 2005