|
| |
|
|
A076699
|
|
T(n,k)=Table of coefficients of x^k in cyclotomic(n,x).
|
|
1
| |
|
|
1, -1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 1, 1, 1, 0, 1, -1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, -1, 1, -1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, -1, 1, -1, 1, -1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, -1
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
EXAMPLE
| Table is {1}, {-1, 1}, {1, 1, 0}, {1, 1, 1, 0} because the cyclotomic polynomials for n=0..3 are 1, -1 + x, 1 + x, 1 + x + x^2
|
|
|
MATHEMATICA
| Table[Drop[CoefficientList[x^(n+1)+Cyclotomic[n, x], x], -1], {n, 0, 7}]
|
|
|
CROSSREFS
| Row sums, apart from initial 1, equal A020500
Sequence in context: A144473 A011750 A010055 * A142720 A091862 A167020
Adjacent sequences: A076696 A076697 A076698 * A076700 A076701 A076702
|
|
|
KEYWORD
| easy,sign,tabl
|
|
|
AUTHOR
| Wouter Meeussen (wouter.meeussen(AT)pandora.be), Oct 26 2002
|
| |
|
|
