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 A077083 #8 May 05 2025 00:44:32
%S A077083 1,1,2,2,3,1,2,16,16,1,2,16,17,17,16,15,16,15,16,1,2,1,2,14,14,16,15,
%T A077083 14,15,14,15,13,14,15,15,10,11,15,14,13,14,11,12,2,14,1,2,1,12,6,2,12,
%U A077083 13,3,2,2,3,1,2,11,12,11,2,11,14,10,11,13,2,2,3,5,6,14,10,10,2,12,13,9
%N A077083 Length of iteration until a fixed point is reached when phi(sigma[n]+phi(n)) = A077080(n) is iterated with initial value of n.
%F A077083 a(n)=Length[FixedPointList[A077080, n]]-1.
%e A077083 n=1,2,6,10,..864: a[n]=1, n is fixed point for some n; n=225: results in iteration sequence of 44 terms: {225,522,444,...,471744,653312,570240}, 44=a[225].
%t A077083 f[x_] := EulerPhi[DivisorSigma[1, x]+EulerPhi[x]] Table[Length[FixedPointList[f, w]]-1, {w, 1, 1024}]
%Y A077083 Cf. A000010, A000203, A065387, A077080-A077085.
%K A077083 nonn
%O A077083 1,3
%A A077083 _Labos Elemer_, Oct 28 2002