A174304 Values of the family of polynomials y=x^n-1 at point x = discriminant of y.

0, 15, -19684, 4294967295, 298023223876953124, 10314424798490535546171949055, -256923577521058878088611477224235621321608, 6277101735386680763835789423207666416102355444464034512895, 196627050475552913618075908526912116283103450944214766927315415537966391196808

Offset

1,2

Links

Table of n, a(n) for n=1..9.

Mathematica

Clear[x]; s = {}; Do[d = Discriminant[x^n - 1, x]; AppendTo[s, d^n - 1], {n, 1, 10}]; s

Prog

(PARI) a(n) = my(p=x^n-1); subst(p, x, poldisc(p)); \\ Michel Marcus, Mar 02 2023

Crossrefs

Cf. A174305, A174306, A174307, A174308, A174309, A174310, A174311.

Sequence in context: A354062 A212924 A068732 * A208461 A068939 A179106

Adjacent sequences: A174301 A174302 A174303 * A174305 A174306 A174307

Keyword

sign

Author

Artur Jasinski, Mar 15 2010

Extensions

More terms from Michel Marcus, Mar 02 2023

Status

approved