|
%I #19 Feb 26 2024 10:26:34
%S -7,-8,-6,43,50,2101,57,102943,2402,117307,2801,247165843,2353,
%T 12111126301,137257,6568801,5764802,29078814248401,117993,
%U 1424861898171643,5649505,15772610449,329554457,3421093417510114543,5762401,79787519018560501,16148168401,1628413557556843
%N Cyclotomic polynomials at x = -7.
%C Sequence has a(0) = x; see comments in A020501.
%H Paolo Xausa, <a href="/A020506/b020506.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=-7,cyclotomic(n,x)); seq(f(i),i=0..64);
%t Join[{-7}, Cyclotomic[Range[50], -7]] (* _Paolo Xausa_, Feb 26 2024 *)
%o (PARI) a(n) = if(n==0, -7, polcyclo(n, -7)); \\ _Michel Marcus_, Dec 17 2017
%K sign
%O 0,1
%A _Simon Plouffe_
%E More terms from _Michel Marcus_, Dec 17 2017
|
