A086840 Resultant of the polynomial x^n-1 and the Chebyshev polynomial of the first kind T_n(x).

1, 1, 37, 289, 411701, 28976689, 1273783660297, 870606927590401, 1051623015879083528521, 7387282445437833999729601, 228573356812047967600677951727277, 17196096115608785185990414864152913921, 12984855868007714242218321109394633690404079101

Offset: 1

Author

Yuval Dekel (dekelyuval(AT)hotmail.com), Aug 08 2003

Keywords

• nonn

Links

• Andrew Howroyd, Table of n, a(n) for n = 1..50

Programs

Mathematica

a[n_] := Resultant[x^n - 1, ChebyshevT[n, x], x];
a /@ Range[1, 13] (* Jean-François Alcover, Sep 27 2019 *)

PARI

a(n)={polresultant(x^n-1, polchebyshev(n, 1, x))} \\ Andrew Howroyd, Jul 09 2018

Extensions

a(12)-a(13) from Andrew Howroyd, Jul 09 2018