|
|
|
|
1, 2, 3, 4, 12, 54, 55, 58, 74, 192, 475, 10188
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
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.
Records occur at A113436(k): 1, 6, 12, 20, 30, 60, 84, 90, 105, 120, 180, 210.
|
|
LINKS
|
|
|
MATHEMATICA
|
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 = Array[f, 359]; r = 0; Do[ a = t[[n]]; If[ a > r, Print[{n, a}]; r = a], {n, 359}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
hard,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|