A174307 Values of the family of polynomials y = x^n + x + 1 at point x = discriminant of y.

3, 7, -29821, 2750058711, 441800144752584283, 6804431770345241082279621151, -377859250831193351209596088271916078121597, 4196483202812521725112100379233057161478356010053715361355, 287968238412833577612998830601797972725819919777961202447931475131073570213331

Offset

1,1

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, A174306, A174308, A174309, A174310, A174311.

Sequence in context: A306632 A083461 A137029 * A351848 A137125 A103319

Adjacent sequences: A174304 A174305 A174306 * A174308 A174309 A174310

Keyword

sign

Author

Artur Jasinski, Mar 15 2010

Extensions

More terms from Michel Marcus, Mar 02 2023

Status

approved