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

2, 17, -19682, 4294967297, 298023223876953126, 10314424798490535546171949057, -256923577521058878088611477224235621321606, 6277101735386680763835789423207666416102355444464034512897, 196627050475552913618075908526912116283103450944214766927315415537966391196810

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..26

Maple

f:= proc(n) local x, d, p;
   p:= x^n+1;
   eval(p, x=discrim(p, x))
end proc:
map(f, [$1..10]); # Robert Israel, Jan 03 2020

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

Sequence in context: A060353 A002814 A122207 * A003819 A078624 A163319

Adjacent sequences: A174302 A174303 A174304 * A174306 A174307 A174308

Keyword

sign

Author

Artur Jasinski, Mar 15 2010

Status

approved