A019331 - OEIS

%I #17 Feb 26 2024 10:09:29

%S 13,12,14,183,170,30941,157,5229043,28562,4829007,26521,149346699503,

%T 28393,25239592216021,4482037,753327121,815730722,720867993281778161,

%U 4824613,121826690864620509223,810932305

%N Cyclotomic polynomials at x=13.

%H Robert Israel, <a href="/A019331/b019331.txt">Table of n, a(n) for n = 0..906</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 nonn

%O 0,1

%A _Simon Plouffe_