cp's OEIS Frontend

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

%I A054372 #16 Feb 16 2025 08:32:42
%S A054372 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 A054372 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 A054372 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 A054372 Table of resultants for cyclotomic polynomials phi_k(x) and phi_n(x).
%H A054372 T. D. Noe, <a href="/A054372/b054372.txt">Rows n=1..100 of triangle, flattened</a>
%H A054372 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 A054372 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/CyclotomicPolynomial.html">Cyclotomic Polynomial</a>.
%e A054372 Triangle begins:
%e A054372   0;
%e A054372   2, 0;
%e A054372   3, 1, 0;
%e A054372   2, 2, 1, 0;
%e A054372   5, 1, 1, 1, 0;
%e A054372   1, 3, 4, 1, 1, 0;
%e A054372   7, 1, 1, 1, 1, 1, 0;
%e A054372   2, 2, 1, 4, 1, 1, 1, 0;
%e A054372   ...
%t A054372 Flatten[Table[Resultant[Cyclotomic[n, x], Cyclotomic[k, x], x], {k, 20}, {n, k}]]
%o A054372 (PARI) T(n, k) = polresultant(polcyclo(k), polcyclo(n));
%o A054372 row(n) = vector(n, k, T(n, k)); \\ _Michel Marcus_, Aug 18 2021
%K A054372 nonn,easy,nice,tabl
%O A054372 1,2
%A A054372 _Eric W. Weisstein_