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 A098009 #11 Mar 12 2023 08:48:11
%S A098009 1,2,4,9,12,30,102,138
%N A098009 Numbers k such that the transient part of the aliquot sequence for k is finite and sets a new record.
%C A098009 In order to extend this there is the problem that there are small numbers (276, 552, etc.) for which it is not presently known if they cycle. I propose that we assume these do not cycle, but mark the records beyond where this becomes an issue as conjectural only.
%D A098009 See references and links in A098007, A098008.
%e A098009 138 has a transient of length 177 (see Guy's book).
%t A098009 g[n_] := If[n > 0, DivisorSigma[1, n] - n, 0]; f[n_] := NestWhileList[g, n, UnsameQ, All]; a = -1; Do[b = Length[ f[n]] - 1; If[b > a, a = b; Print[n]], {n, 275}] (* _Robert G. Wilson v_, Sep 10 2004 *)
%Y A098009 Records in A098008. Cf. A098010.
%K A098009 nonn,more
%O A098009 1,2
%A A098009 _N. J. A. Sloane_, Sep 10 2004
%E A098009 102 and 138 from _Robert G. Wilson v_, Sep 10 2004