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

Author

Wouter Meeussen, Oct 26 2002

Keywords

• easy
• sign
• tabl

Examples

			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
		

Links

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

Crossrefs

Row sums, apart from initial 1, equal A020500.

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

Programs

Mathematica

Table[Drop[CoefficientList[x^(n+1)+Cyclotomic[n, x], x], -1], {n, 0, 7}]