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
KEYWORD
sign
AUTHOR
Artur Jasinski, Mar 15 2010
STATUS
approved