login
Table of resultants for cyclotomic polynomials phi_k(x) and phi_n(x).
4

%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_