A014240 Inverse of 231st cyclotomic polynomial.

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

Offset

0,1

Comments

Periodic with period length 231. - 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, -1, 0, 0, 0, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 0, 0, -1, -1, -1, -1, -1, -1, 0, 0, 0, 0, 1, 1, 1, 0, 1, 0, 0, -1, 0, 0, 0, -1, 0, 0, 0, -1, 0, 1, 1, 0, 0, 1, 1, 0, -1, 0, 0, 0, -1, 0, 0, 0, -1, 0, 0, 0, -1, 0, 0, 0, -1, 0, 1, 1, 0, 0, 1, 1, 0, -1, 0, 0, 0, -1, 0, 0, 0, -1, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0, 0, -1, -1, -1, -1, -1, -1, 0, 0, 0, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 0, 0, -1, -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[231, x], {x, 0, 200}], x] (* Vincenzo Librandi, Apr 07 2014 *)

Crossrefs

Cf. similar sequences listed in A240328, A240467.

Sequence in context: A054521 A349221 A338354 * A014471 A230002 A071028

Adjacent sequences: A014237 A014238 A014239 * A014241 A014242 A014243

Keyword

sign,easy

Author

Simon Plouffe

Status

approved