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 A290145 #12 Jul 24 2017 12:36:26
%S A290145 30,66,102,138,174,210,318,1110,1398,6870,19866,89610,291450,705990
%N A290145 Numbers n that have a record maximum in their unitary aliquot sequence.
%C A290145 Maximum term in the aliquot sequence of n is considered only if it is larger than n.
%C A290145 The record values are in A290146.
%C A290145 te Riele found the unitary aliquot sequences of all numbers < 10^5, except for 89610. He terminated the calculation of the unitary aliquot sequence of 89610 at the 541st iteration, at 114601234388928504726, while the maximum, 645856907610421353834, is reached at the 569th iteration.
%D A290145 H. J. J. te Riele, Further Results On Unitary Aliquot Sequences. NW 2/73, Mathematisch Centrum, 1973, Amsterdam.
%e A290145 The unitary aliquot sequence of 174 is: 174, 186, 198, 162, 84, 76, 24, 12, 8, 1. Its maximum is 198 which larger than the maxima of all the aliquot sequences of the numbers below 174.
%t A290145 usigma[n_] := If[n == 1, 1, Times @@ (1 + Power @@@ FactorInteger[n])];
%t A290145 g[n_] := If[n > 0, usigma[n] - n, 0]; f[n_] := NestWhileList[g, n, UnsameQ, All]; a = -1; rec = {}; Do[b = Length[f[n]] - 2;
%t A290145 If[b > a, a = b; AppendTo[rec, n]], {n, 10^6}] ; rec (* after _Giovanni Resta_ at A034448 & _Robert G. Wilson v_ at A098009 *)
%Y A290145 Cf. A098008, A098009, A098010, A290146.
%K A290145 nonn,more
%O A290145 1,1
%A A290145 _Amiram Eldar_, Jul 21 2017