A019321 - OEIS

%I #17 Feb 26 2024 09:16:58

%S 3,2,4,13,10,121,7,1093,82,757,61,88573,73,797161,547,4561,6562,

%T 64570081,703,581130733,5905,368089,44287,47071589413,6481,3501192601,

%U 398581,387440173,478297,34315188682441,8401,308836698141973,43046722,2413941289,32285041

%N Cyclotomic polynomials at x=3.

%H Paolo Xausa, <a href="/A019321/b019321.txt">Table of n, a(n) for n = 0..1000</a>

%H <a href="/index/Cy#CyclotomicPolynomialsValuesAtX">Index entries for cyclotomic polynomials, values at X</a>

%p with(numtheory,cyclotomic); f := n->subs(x=3,cyclotomic(n,x)); seq(f(i),i=0..64);

%t Join[{3}, Cyclotomic[Range[50], 3]] (* _Paolo Xausa_, Feb 26 2024 *)

%K nonn

%O 0,1

%A _Simon Plouffe_