|
|
A174309
|
|
Value of the polynomial y = (x^(2n-1) + 1)/(x + 1) at the point x = discriminant of y.
|
|
7
|
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
s = {}; Do[pol = Simplify[(x^n + 1)/(x + 1)]; d = Discriminant[pol, x]; AppendTo[s, pol /. x -> d], {n, 1, 10, 2}]; s
|
|
PROG
|
(PARI) a(n) = my(p=(x^(2*n-1) + 1)/(x + 1)); subst(p, x, poldisc(p)); \\ Michel Marcus, Mar 02 2023
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|