%I #15 Aug 18 2021 09:30:45
%S 0,2,0,3,1,0,2,2,1,0,5,1,1,1,0,1,3,4,1,1,0,7,1,1,1,1,1,0,2,2,1,4,1,1,
%T 1,0,3,1,9,1,1,1,1,1,0,1,5,1,1,16,1,1,1,1,0,11,1,1,1,1,1,1,1,1,1,0,1,
%U 1,4,9,1,4,1,1,1,1,1,0,13,1,1,1,1,1,1,1,1,1,1,1,0,1,7,1,1,1,1,64,1,1
%N Table of resultants for cyclotomic polynomials phi_k(x) and phi_n(x).
%H T. D. Noe, <a href="/A054372/b054372.txt">Rows n=1..100 of triangle, flattened</a>
%H T. M. Apostol, <a href="https://doi.org/10.1090/S0002-9939-1970-0251010-X">Resultants of cyclotomic polynomials</a>, Proc. Amer. Math. Soc. 24 (1970), 457-462.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/CyclotomicPolynomial.html">Cyclotomic Polynomial</a>.
%e Triangle begins:
%e 0;
%e 2, 0;
%e 3, 1, 0;
%e 2, 2, 1, 0;
%e 5, 1, 1, 1, 0;
%e 1, 3, 4, 1, 1, 0;
%e 7, 1, 1, 1, 1, 1, 0;
%e 2, 2, 1, 4, 1, 1, 1, 0;
%e ...
%t Flatten[Table[Resultant[Cyclotomic[n, x], Cyclotomic[k, x], x], {k, 20}, {n, k}]]
%o (PARI) T(n, k) = polresultant(polcyclo(k), polcyclo(n));
%o row(n) = vector(n, k, T(n, k)); \\ _Michel Marcus_, Aug 18 2021
%K nonn,easy,nice,tabl
%O 1,2
%A _Eric W. Weisstein_