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 A117342 #4 Mar 30 2012 17:31:18
%S A117342 1,2,3,4,12,54,55,58,74,192,475,10188
%N A117342 Records in A113436.
%C A117342 A114536: Let the height of a polynomial be the largest coefficient in absolute value. Then A114536(n) is the maximal height of a divisor of x^n-1 with integral coefficients.
%C A117342 Records occur at A113436(k): 1, 6, 12, 20, 30, 60, 84, 90, 105, 120, 180, 210.
%t A117342 cyc[n_] := cyc[n] = Cyclotomic[n, x]; f[n_] := Block[{sd = Take[Subsets@Divisors@n, {2, lmt = 2^(DivisorSigma[0, n] - 1)}], lst = {}, y = x^n - 1}, For[i = 1, i < lmt, i++, pr = Expand[Times @@ (cyc[ # ] & /@ sd[[i]])]; AppendTo[lst, Max@ Abs@ CoefficientList[pr, x]]; AppendTo[lst, Max@ Abs@ CoefficientList[Together[y/pr], x]]]; Max@lst];
%t A117342 t = Array[f, 359]; r = 0; Do[ a = t[[n]]; If[ a > r, Print[{n, a}]; r = a], {n, 359}]
%Y A117342 Cf. A114536.
%K A117342 hard,nonn
%O A117342 1,2
%A A117342 Felipe Garcia (fgarciah(AT)ucla.edu) and _Robert G. Wilson v_, Mar 09 2006
%E A117342 Possibly continues with A114536(464)=11712 & A114536(690)=12840.