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

-1, 19, -12145, 6414248203, 194380520729322479, 15218845171211140441021214899, -170806730553626811832652589499918854529297, 9209820606607584866627264481712305648950696250051751911479, 132009474006996885142958525887127779016665316066680074875830065810704441797439

Offset

1,2

Links

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

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A276739 A093400 A265169 * A270069 A357252 A186165

Adjacent sequences: A174303 A174304 A174305 * A174307 A174308 A174309

Keyword

sign

Author

Artur Jasinski, Mar 15 2010

Extensions

More terms from Michel Marcus, Mar 02 2023

Status

approved