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 A096862 #8 Sep 02 2019 15:26:46
%S A096862 1,2,1,2,3,2,2,3,3,3,4,2,2,3,1,2,4,3,5,2,2,4,3,2,3,2,5,1,5,2,3,4,3,4,
%T A096862 4,2,4,5,4,4,5,2,6,3,4,3,4,4,6,3,5,4,7,5,5,4,4,5,5,3,3,4,4,5,3,3,4,5,
%U A096862 5,4,4,3,3,4,5,4,3,4,3,5,6,5,5,4,5,6,6,5,4,4,3,5,3,4,3,5,3,6,3,5,8,5,4,3,3
%N A096862 Function A062402(x)=sigma(phi(x)) is iterated. Starting with n, a(n) is the count of distinct terms arising during this trajectory; a(n)=t(n)+c(n)=t+c, where t is the number of transient terms, c is the number of recurrent terms [in the terminal cycle].
%e A096862 n=256: list={256,255,255}, transient=t=1, cycle=c=1, a(256)=t+c=2.
%t A096862 gf[x_] :=DivisorSigma[1, EulerPhi[x]] gite[x_, hos_] :=NestList[gf, x, hos] Table[Length[Union[gite[w, 1000]]], {w, 1, 256}]
%Y A096862 Cf. A062401, A062402, A095955, A096859-A096866.
%K A096862 nonn
%O A096862 1,2
%A A096862 _Labos Elemer_, Jul 21 2004