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 A096999 #4 Oct 15 2013 22:32:33
%S A096999 2,6,8,30,96,126,128,480,600,3840,2048,8190,10584,27000,32768,196560,
%T A096999 311040,851840,1161216,2250600,2640704,150992640,150992640,
%U A096999 283740364800,283740364800,283740364800,283740364800,7608287232,7608287232
%N A096999 A062401(x)=phi[sigma(x)] function is iterated; initial value=2^n; a(n)=largest term of trajectory.
%e A096999 n=8: 2^n=256, list={256,432,480,432,...}, max=a(8)=480
%t A096999 fs[x_] :=EulerPhi[DivisorSigma[1, x]] itef[x_, hos_] :=NestList[fs, x, hos] Table[Max[itef[2^w, 200]], {w, 1, 30}]
%Y A096999 Cf. A000010, A000203, A062401, A096852.
%K A096999 nonn
%O A096999 1,1
%A A096999 _Labos Elemer_, Jul 21 2004