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,1

Links

Robert Israel, Table of n, a(n) for n = 0..1662

Index entries for cyclotomic polynomials, values at X

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

Sequence in context: A299420 A019836 A353314 * A307484 A266964 A258197

Adjacent sequences: A020500 A020501 A020502 * A020504 A020505 A020506

Keyword

sign

Author

Simon Plouffe

Status

approved