OFFSET
0,1
LINKS
MAPLE
with(numtheory, cyclotomic); f := n->subs(x=-4, cyclotomic(n, x)); seq(f(i), i=0..64);
MATHEMATICA
Join[{-4}, Cyclotomic[Range[50], -4]] (* Paolo Xausa, Feb 26 2024 *)
PROG
(PARI) a(n) = if (n, polcyclo(n, -4), -4); \\ Michel Marcus, Sep 27 2018
CROSSREFS
KEYWORD
sign
AUTHOR
STATUS
approved