OFFSET
1,2
EXAMPLE
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.
MATHEMATICA
usigma[n_] := If[n == 1, 1, Times @@ (1 + Power @@@ FactorInteger[n])];
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 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Jul 21 2017
STATUS
approved