OFFSET
1,2
MATHEMATICA
Clear[x]; s = {}; Do[pol = Simplify[(x^n - 1)/(x - 1)]; d = Discriminant[pol, x]; AppendTo[s, pol /. x -> d], {n, 1, 10}]; s
PROG
(PARI) a(n) = my(p=sum(k=0, n-1, x^k)); subst(p, x, poldisc(p)); \\ Michel Marcus, Mar 02 2023
CROSSREFS
KEYWORD
sign
AUTHOR
Artur Jasinski, Mar 15 2010
EXTENSIONS
One more term from Michel Marcus, Mar 02 2023
STATUS
approved