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 A119500 #9 Mar 03 2016 04:49:34
%S A119500 1,6,12,24,30,60,120,180,240,360,420,720,840,1260,1680,2520,4620,5040,
%T A119500 7560,9240
%N A119500 Numbers n such that A114717(n) sets a new record.
%C A119500 This sequence gives yet another list of "increasingly compound" numbers.
%t A119500 b[s_] := b[s] = If[Length[s] < 2, 1, Sum[If[Length[Select[s, Mod[#, x] == 0 &]] == 1, b[Complement[s, {x}]], 0], {x, s}]]; a[n_] := a[n] = Module[{l, m}, l = Sort[FactorInteger[n], #1[[2]] > #2[[2]] &]; m = Product[Prime[i ]^l[[i]][[2]], {i, 1, Length[l]}]; b[Divisors[m] // Rest // Most]]; A119500 = Reap[For[record = 0; k = 1, k < 10^4, k++, ak = a[k]; If[ak > record, record = ak; Print[k, " ", ak]; Sow[k]]]][[2, 1]] (* _Jean-François Alcover_, Mar 03 2016, after _Alois P. Heinz_ *)
%Y A119500 Cf. A119499, A018894. Subset of A119840.
%K A119500 nonn
%O A119500 1,2
%A A119500 _Antti Karttunen_, May 26 2006
%E A119500 a(11)-a(17) from _Alois P. Heinz_, Aug 06 2012
%E A119500 a(18)-a(20) from _Alois P. Heinz_, Feb 25 2016