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 A117343 #7 Jul 14 2012 13:50:46
%S A117343 1,6,12,20,35,48,56,72,99,108,143,30,208,200,320,272,323,144,437,110,
%T A117343 567
%N A117343 Position of n in A114536.
%C A117343 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 A117343 a(23)=216, a(24)<=768, a(25)<=725, a(26)<=832, a(27)<=783, a(28)=182, a(29)<=899, a(30)<=972, a(31)<=992, a(32)=70, a(34)=288, a(35)=675, a(36)=154, a(37)<=784, a(38)<=1000, a(40)=306, a(41)=435, a(44)=506, a(45)<=1225, a(49)<=800, a(52)<=1378, a(54)=60, a(55)=84, a(56)=418, a(57)=195, a(58)=90, a(59)<=861, a(60)=126, ..., . - _Robert G. Wilson v_, Mar 09 2006
%t A117343 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 A117343 t = Array[f, 359]; Table[ Position[t, n, 1, 1], {n, 18}] // Flatten
%Y A117343 Cf. A114536.
%K A117343 hard,nonn
%O A117343 1,2
%A A117343 Felipe Garcia (fgarciah(AT)ucla.edu) and _Robert G. Wilson v_, Mar 09 2006
%E A117343 a(19)-a(21) from _Robert G. Wilson v_, Aug 02 2006