OFFSET
1,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..16384
FORMULA
a(n) = max(n, A066437(n)). - Antti Karttunen, Dec 06 2017
EXAMPLE
n=256: list={256,255,255}, a(256)=256 as a transient term;
n=101: list={101,217,546,403,1170,819,[1240,1512],1240,...}, a(101)=1512 as a cycle term.
MATHEMATICA
gf[x_] :=DivisorSigma[1, EulerPhi[x]] gite[x_, hos_] :=NestList[gf, x, hos] Table[Max[gite[w, 20]], {w, 1, 256}]
Table[Max[NestList[DivisorSigma[1, EulerPhi[#]]&, n, 20]], {n, 70}] (* Harvey P. Dale, May 13 2019 *)
PROG
(Scheme) (define (A096864 n) (let loop ((visited (list n)) (m n)) (let ((next (A062402 (car visited)))) (cond ((member next visited) m) (else (loop (cons next visited) (max m next))))))) ;; Antti Karttunen, Nov 18 2017
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Labos Elemer, Jul 21 2004
STATUS
approved