|
| |
|
|
A013595
|
|
Triangle of coefficients of cyclotomic polynomial Phi_n(x) (exponents in increasing order).
|
|
7
| |
|
|
0, 1, -1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, -1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, -1, 1, -1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, -1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, -1, 1, -1, 1, -1, 1, 1, -1, 0, 1, -1, 1, 0, -1, 1, 1, 0, 0, 0, 0
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
COMMENTS
| We follow Maple in defining Phi_0 to be x; it could equally well be taken to be 1.
|
|
|
REFERENCES
| E. R. Berlekamp, Algebraic Coding Theory, McGraw-Hill, 1968; see p. 90.
Z. I. Borevich and I. R. Shafarevich, Number Theory. Academic Press, NY, 1966, p. 325.
K. Ireland and M. Rosen, A Classical Introduction to Modern Number Theory, Springer, 1982, p. 194.
|
|
|
EXAMPLE
| Phi_0 = x; Phi_1 = x-1; Phi_2 = x+1; Phi_3 = x^2+x+1; Phi_4 = x^2+1; ...
|
|
|
MAPLE
| with(numtheory): [ seq(cyclotomic(n, x), n=0..48) ];
|
|
|
MATHEMATICA
| lst={}; Do[lst=Join[lst, CoefficientList[Cyclotomic[n, x], x]], {n, 0, 20}]; lst (T. D. Noe (noe(AT)sspectra.com), Dec 06 2005)
|
|
|
CROSSREFS
| Cf. A013596.
Sequence in context: A168182 A168046 A168184 * A011582 A145568 A123927
Adjacent sequences: A013592 A013593 A013594 * A013596 A013597 A013598
|
|
|
KEYWORD
| sign,easy,nice,tabf
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com).
|
| |
|
|
