A020502 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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