A174305 - OEIS

A174305

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

%I #16 Mar 02 2023 11:25:32

%S 2,17,-19682,4294967297,298023223876953126,

%T 10314424798490535546171949057,

%U -256923577521058878088611477224235621321606,6277101735386680763835789423207666416102355444464034512897,196627050475552913618075908526912116283103450944214766927315415537966391196810

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

%H Robert Israel, <a href="/A174305/b174305.txt">Table of n, a(n) for n = 1..26</a>

%p f:= proc(n) local x, d,p;

%p p:= x^n+1;

%p eval(p,x=discrim(p,x))

%p end proc:

%p map(f, [$1..10]); # _Robert Israel_, Jan 03 2020

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

%o (PARI) a(n) = my(p=x^n+1); subst(p, x, poldisc(p)); \\ _Michel Marcus_, Mar 02 2023

%Y Cf. A174304, A174306, A174307, A174308, A174309, A174310, A174311.

%K sign

%O 1,1

%A _Artur Jasinski_, Mar 15 2010