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 A290144 #10 Jul 24 2017 12:36:14
%S A290144 1,2,3,4,5,6,7,8,9,10,11,15,43,45,67,78,205,207,1109,1116,1117,1155,
%T A290144 1162,1163,1171,1711,1712,1828,1829
%N A290144 Record lengths of transient part of the unitary aliquot sequences of the numbers in A290143.
%e A290144 The unitary aliquot sequence of 134 is: 134, 70, 74, 40, 14, 10, 8, 1. Its length is 8 and it is longer than the unitary aliquot sequences of all the numbers below 134.
%t A290144 usigma[n_] := If[n == 1, 1, Times @@ (1 + Power @@@ FactorInteger[n])];
%t A290144 g[n_] := If[n > 0, usigma[n] - n, 0]; f[n_] := NestWhileList[g, n, UnsameQ, All]; a = 0; seq = {}; Do[b = Length[f[n]] - 2; If[b > a, a = b; AppendTo[seq, b]], {n, 10^6}]; seq (* after _Giovanni Resta_ at A034448 & _Robert G. Wilson v_ at A098009 *)
%Y A290144 Cf. A098008, A098009, A098010, A127652, A127653, A127654, A127655, A290143.
%K A290144 nonn,more
%O A290144 1,2
%A A290144 _Amiram Eldar_, Jul 21 2017