|
|
A174307
|
|
Values of the family of polynomials y = x^n + x + 1 at point x = discriminant of y.
|
|
7
|
|
|
3, 7, -29821, 2750058711, 441800144752584283, 6804431770345241082279621151, -377859250831193351209596088271916078121597, 4196483202812521725112100379233057161478356010053715361355, 287968238412833577612998830601797972725819919777961202447931475131073570213331
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|