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

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A026178 A026197 A026217 * A252896 A266562 A299613

Adjacent sequences: A020499 A020500 A020501 * A020503 A020504 A020505

Keyword

sign

Author

Simon Plouffe

Extensions

More terms from Michel Marcus, Oct 30 2018

Status

approved