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 A098010 #7 Mar 29 2015 19:24:53
%S A098010 1,2,3,4,7,15,18,178
%N A098010 Record lengths of transient part of aliquot sequences corresponding to entries in A098009.
%e A098010 138 has a transient of length 177 (see Guy's book).
%t A098010 g[n_] := If[n > 0, DivisorSigma[1, n] - n, 0]; f[n_] := NestWhileList[g, n, UnsameQ, All]; a = -1; Do[b = Length[ f[n]] - 2; If[b > a, a = b; Print[b]], {n, 275}] (* _Robert G. Wilson v_, Sep 10 2004 *)
%Y A098010 See A098009 for discussion, see A098008 for references.
%K A098010 nonn,more
%O A098010 1,2
%A A098010 _N. J. A. Sloane_, Sep 10 2004
%E A098010 18 and 178 from _Robert G. Wilson v_, Sep 10 2004