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,3

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A142234 A215632 A165381 * A190418 A200889 A211156

Adjacent sequences: A086837 A086838 A086839 * A086841 A086842 A086843

Keyword

nonn

Author

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

Extensions

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

Status

approved