A020502 Cyclotomic polynomials at x=-3.

-3, -4, -2, 7, 10, 61, 13, 547, 82, 703, 121, 44287, 73, 398581, 1093, 8401, 6562, 32285041, 757, 290565367, 5905, 682969, 88573, 23535794707, 6481, 3472494301, 797161, 387400807, 478297, 17157594341221, 4561, 154418349070987, 43046722, 4482983209, 64570081, 374857981681

Offset: 0

Author

Simon Plouffe

Keywords

• sign

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=-3,cyclotomic(n,x)); seq(f(i),i=0..64);

Mathematica

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

PARI

a(n) = if (n, polcyclo(n, -3), -3); \\ Michel Marcus, Oct 30 2018

Extensions

More terms from Michel Marcus, Oct 30 2018