A014164 Inverse of 155th cyclotomic polynomial.

1, 1, 1, 1, 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, -1, -1, -1, -1, -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

Offset

0,1

Comments

Periodic with period length 155. - Ray Chandler, Apr 03 2017

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..1000

Index entries for linear recurrences with constant coefficients, signature (1, 0, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, 0, -1, 0, 1, 0, 0, -1, 0, 1, 0, 0, -1, 0, 1, 0, 0, -1, 0, 1, 0, 0, -1, 0, 1, 0, 0, -1, 0, 1, 0, 0, -1, 0, 0, 1, 0, -1, 0, 0, 1, 0, -1, 0, 0, 1, 0, -1, 0, 0, 1, 0, -1, 0, 0, 1, 0, -1, 0, 0, 1, 0, -1, 0, 0, 0, 1, -1, 0, 0, 0, 1, -1, 0, 0, 0, 1, -1, 0, 0, 0, 1, -1, 0, 0, 0, 1, -1, 0, 0, 0, 1, -1).

Index to sequences related to inverse of cyclotomic polynomials

Maple

with(numtheory, cyclotomic); c := n->series(1/cyclotomic(n, x), x, 80);

Mathematica

CoefficientList[Series[1/Cyclotomic[155, x], {x, 0, 200}], x] (* Vincenzo Librandi, Apr 06 2014 *)

Crossrefs

Cf. similar sequences listed in A240328, A240467.

Sequence in context: A153490 A014194 A014379 * A014319 A014154 A014299

Adjacent sequences: A014161 A014162 A014163 * A014165 A014166 A014167

Keyword

sign,easy

Author

Simon Plouffe

Status

approved