Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #12 Dec 04 2017 18:36:04
%S 1,1,1,1,2,1,2,2,2,2,2,2,1,2,1,1,3,2,3,1,1,2,1,1,1,1,3,1,3,1,3,3,1,3,
%T 3,1,2,3,3,3,3,1,2,1,3,1,3,3,2,1,2,3,2,3,3,3,2,3,3,3,2,3,2,2,2,1,2,2,
%U 3,3,2,3,2,2,3,2,2,3,2,2,2,3,2,3,2,2,2,3,2,3,2,3,2,3,2,2,2,2,2,3,2,2,2,2,2
%N Function A062402(x) = sigma(phi(x)) is iterated with initial value=n. a(n) is the length of cycle into which the trajectory merges.
%C No 5's present among the first 16384 terms, but they should exist as A095955 has them too. - _Antti Karttunen_, Dec 04 2017
%H Antti Karttunen, <a href="/A096993/b096993.txt">Table of n, a(n) for n = 1..16384</a>
%o (Scheme) (define (A096993 n) (if (= 1 n) n (let loop ((visited (list n)) (i 1)) (let ((next (A062402 (car visited)))) (cond ((member next visited) => (lambda (prepath) (+ 1 (- i (length prepath))))) (else (loop (cons next visited) (+ 1 i)))))))) ;; _Antti Karttunen_, Dec 04 2017
%Y Cf. A062402, A095955, A096864, A096866.
%K nonn
%O 1,5
%A _Labos Elemer_, Jul 19 2004