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

Author

Simon Plouffe

Keywords

• sign

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

Programs

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

PARI

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

Extensions

More terms from Michel Marcus, Dec 17 2017