login
Record lengths of transient part of aliquot sequences corresponding to entries in A098009.
11

%I #7 Mar 29 2015 19:24:53

%S 1,2,3,4,7,15,18,178

%N Record lengths of transient part of aliquot sequences corresponding to entries in A098009.

%e 138 has a transient of length 177 (see Guy's book).

%t 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 See A098009 for discussion, see A098008 for references.

%K nonn,more

%O 1,2

%A _N. J. A. Sloane_, Sep 10 2004

%E 18 and 178 from _Robert G. Wilson v_, Sep 10 2004