login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A117342 Records in A113436. 0
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

Table of n, a(n) for n=1..12.

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

Cf. A114536.

Sequence in context: A165302 A276530 A251411 * A303385 A325709 A126129

Adjacent sequences:  A117339 A117340 A117341 * A117343 A117344 A117345

KEYWORD

hard,nonn

AUTHOR

Felipe Garcia (fgarciah(AT)ucla.edu) and Robert G. Wilson v, Mar 09 2006

EXTENSIONS

Possibly continues with A114536(464)=11712 & A114536(690)=12840.

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 26 05:42 EDT 2019. Contains 326329 sequences. (Running on oeis4.)