|
%I #22 Feb 26 2024 10:10:00
%S -4,-5,-3,13,17,205,21,3277,257,4033,341,838861,241,13421773,5461,
%T 80581,65537,3435973837,4161,54975581389,61681,20647621,1398101,
%U 14073748835533,65281,1098438933505,22369621,68719214593
%N Cyclotomic polynomials at x=-4.
%H Robert Israel, <a href="/A020503/b020503.txt">Table of n, a(n) for n = 0..1662</a>
%H <a href="/index/Cy#CyclotomicPolynomialsValuesAtX">Index entries for cyclotomic polynomials, values at X</a>
%p with(numtheory,cyclotomic); f := n->subs(x=-4,cyclotomic(n,x)); seq(f(i),i=0..64);
%t Join[{-4}, Cyclotomic[Range[50], -4]] (* _Paolo Xausa_, Feb 26 2024 *)
%o (PARI) a(n) = if (n, polcyclo(n, -4), -4); \\ _Michel Marcus_, Sep 27 2018
%K sign
%O 0,1
%A _Simon Plouffe_
|
