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 A181660 #3 Mar 30 2012 17:22:57
%S A181660 1,2,6,12,18,30,42,54,60,66,90,126,150,210,270,294,330,420,462,630,
%T A181660 660,840,882,1050,1260,1470,1680,1890,2310,2730,2940,3150,3234,3570,
%U A181660 3990,4410,4620,4830,5250,5460,5670,6090,6930,7350,8190,9030,9240,9450,9660
%N A181660 Numbers at which the sum of the iterated totient function (A092693) attains a minimum.
%C A181660 That is, for each n in this sequence, A092693(n) < A092693(m) for m > n. Do all primorials appear here?
%H A181660 T. D. Noe, <a href="/A181660/b181660.txt">Table of n, a(n) for n=1..300</a>
%t A181660 kMax=2*3*5*7*11*13; t=Table[0,{kMax}]; Do[e=EulerPhi[k]; t[[k]]=e+t[[e]], {k,2,kMax}]; mn=Infinity; Reverse[Reap[Do[If[t[[ -k]]<mn, mn=t[[ -k]]; Sow[kMax-k+1]], {k,kMax}]][[2,1]]]
%Y A181660 Cf. A181659
%K A181660 nonn
%O A181660 1,2
%A A181660 _T. D. Noe_, Nov 04 2010