A076699 T(n,k) = Table of coefficients of x^k in cyclotomic(n,x).

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

Offset

0,5573

Links

Andrey Zabolotskiy, Table of n, a(n) for n = 0..7380 (rows 0..120)

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.

A013595 and A013596 are the irregular-array versions of this array.

Sequence in context: A325964 A344885 A345064 * A142720 A196308 A091862

Adjacent sequences: A076696 A076697 A076698 * A076700 A076701 A076702

Keyword

easy,sign,tabl

Author

Wouter Meeussen, Oct 26 2002

Status

approved