|
%I #8 Jun 22 2017 06:05:05
%S 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,
%T 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,
%U 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
%N T(n,k) = Table of coefficients of x^k in cyclotomic(n,x).
%H Andrey Zabolotskiy, <a href="/A076699/b076699.txt">Table of n, a(n) for n = 0..7380</a> (rows 0..120)
%e 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
%t Table[Drop[CoefficientList[x^(n+1)+Cyclotomic[n, x], x], -1], {n, 0, 7}]
%Y Row sums, apart from initial 1, equal A020500.
%Y A013595 and A013596 are the irregular-array versions of this array.
%K easy,sign,tabl
%O 0,5573
%A _Wouter Meeussen_, Oct 26 2002
|
