%I #15 Feb 26 2024 10:59:30
%S -13,-14,-12,157,170,26521,183,4482037,28562,4824613,30941,
%T 128011456717,28393,21633936185161,5229043,878077201,815730722,
%U 617886851384381281,4829007,104422877883960436477,810932305
%N Cyclotomic polynomials at x=-13.
%H Paolo Xausa, <a href="/A020512/b020512.txt">Table of n, a(n) for n = 0..900</a>
%H <a href="/index/Cy#CyclotomicPolynomialsValuesAtX">Index entries for cyclotomic polynomials, values at X</a>
%p with(numtheory,cyclotomic); f := n->subs(x=-13,cyclotomic(n,x)); seq(f(i),i=0..64);
%t Join[{-13}, Cyclotomic[Range[30], -13]] (* _Paolo Xausa_, Feb 26 2024 *)
%K sign
%O 0,1
%A _Simon Plouffe_