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 A181659 #5 Mar 30 2012 17:22:57
%S A181659 1,2,3,5,7,11,13,17,23,29,37,41,47,53,59,71,73,79,83,89,101,107,131,
%T A181659 137,167,179,227,233,257,289,317,347,359,389,443,449,461,467,503,557,
%U A181659 563,569,587,641,719,809,839,857,929,977,983,1013,1019,1097,1187,1193,1283
%N A181659 Numbers at which the sum of the iterated totient function (A092693) attains a record.
%C A181659 Most of these numbers are prime. The first four composites are 289, 2329, 4369, and 4913.
%H A181659 T. D. Noe, <a href="/A181659/b181659.txt">Table of n, a(n) for n=1..1000</a>
%t A181659 kMax=2*3*5*7*11*13; t=Table[0,{kMax}]; Do[e=EulerPhi[k]; t[[k]]=e+t[[e]], {k,2,kMax}]; mx=-1; Reap[Do[If[t[[k]]>mx, mx=t[[k]]; Sow[k]], {k,kMax}]][[2,1]]
%Y A181659 Cf. A181660
%Y A181659 Cf. A126106 (record values)
%K A181659 nonn
%O A181659 1,2
%A A181659 _T. D. Noe_, Nov 04 2010