A020506 Cyclotomic polynomials at x = -7.

-7, -8, -6, 43, 50, 2101, 57, 102943, 2402, 117307, 2801, 247165843, 2353, 12111126301, 137257, 6568801, 5764802, 29078814248401, 117993, 1424861898171643, 5649505, 15772610449, 329554457, 3421093417510114543, 5762401, 79787519018560501, 16148168401, 1628413557556843

Offset

0,1

Comments

Sequence has a(0) = x; see comments in A020501.

Links

Paolo Xausa, Table of n, a(n) for n = 0..1000

Index entries for cyclotomic polynomials, values at X

Maple

with(numtheory, cyclotomic); f := n->subs(x=-7, cyclotomic(n, x)); seq(f(i), i=0..64);

Mathematica

Join[{-7}, Cyclotomic[Range[50], -7]] (* Paolo Xausa, Feb 26 2024 *)

Prog

(PARI) a(n) = if(n==0, -7, polcyclo(n, -7)); \\ Michel Marcus, Dec 17 2017

Crossrefs

Sequence in context: A088660 A244263 A288023 * A193345 A197822 A055060

Adjacent sequences: A020503 A020504 A020505 * A020507 A020508 A020509

Keyword

sign

Author

Simon Plouffe

Extensions

More terms from Michel Marcus, Dec 17 2017

Status

approved