A020503 Cyclotomic polynomials at x=-4.

-4, -5, -3, 13, 17, 205, 21, 3277, 257, 4033, 341, 838861, 241, 13421773, 5461, 80581, 65537, 3435973837, 4161, 54975581389, 61681, 20647621, 1398101, 14073748835533, 65281, 1098438933505, 22369621, 68719214593

Offset: 0

Author

Simon Plouffe

Keywords

• sign

Links

• Robert Israel, Table of n, a(n) for n = 0..1662
• Index entries for cyclotomic polynomials, values at X

Programs

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 *)

PARI

a(n) = if (n, polcyclo(n, -4), -4); \\ Michel Marcus, Sep 27 2018