login
A014317
Inverse of 308th cyclotomic polynomial.
1
1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
OFFSET
0,1
COMMENTS
Periodic with period length 308. - Ray Chandler, Apr 03 2017
LINKS
Index entries for linear recurrences with constant coefficients, signature (0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, -1, 0, -1, 0, 0, 0, 0, 0, -1, 0, -1, 0, 0, 0, 1, 0, 0, 0, -1, 0, 0, 0, 1, 0, 1, 0, 0, 0, -1, 0, 0, 0, 1, 0, 0, 0, -1, 0, 0, 0, 1, 0, 1, 0, 0, 0, -1, 0, 0, 0, 1, 0, 0, 0, -1, 0, -1, 0, 0, 0, 0, 0, -1, 0, -1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 0, -1).
MAPLE
with(numtheory, cyclotomic); c := n->series(1/cyclotomic(n, x), x, 80);
MATHEMATICA
CoefficientList[Series[1/Cyclotomic[308, x], {x, 0, 200}], x] (* Vincenzo Librandi, Apr 08 2014 *)
PROG
(Magma) t:=308; u:=1; m:=u*t+2; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!(1/CyclotomicPolynomial(t))); // Vincenzo Librandi, Apr 08 2014
CROSSREFS
Sequence in context: A014541 A014485 A014373 * A356172 A015813 A015901
KEYWORD
sign,easy
AUTHOR
STATUS
approved