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 A097000 #4 Oct 15 2013 22:32:33
%S A097000 2,4,8,16,32,64,128,256,432,1024,1728,4096,1800,7200,32768,65536,
%T A097000 131072,262144,326592,1036800,1658880,4194304,4838400,16777216,
%U A097000 33554432,67108864,82301184,207360000,361267200,414720000
%N A097000 A062401(x)=phi[sigma(x)] function is iterated; initial value=2^n; a(n)=smallest term of trajectory.
%e A097000 n=8: 2^n=256, list={256,432,480,432,...}, max=a(8)=256, the start value;
%e A097000 n=13:2^n=8192,list={8192,10584,8640,8064,6144,3456,[2560,1800,2880, 3024,3840,3456],2560,..}, min=1800=a(13), a term of 6-cycle.
%t A097000 fs[x_] :=EulerPhi[DivisorSigma[1, x]] itef[x_, hos_] :=NestList[fs, x, hos] Table[Min[itef[2^w, 200]], {w, 1, 30}]
%Y A097000 Cf. A000010, A000203, A062401, A096852.
%K A097000 nonn
%O A097000 1,1
%A A097000 _Labos Elemer_, Jul 21 2004