A133513 Period 6: repeat [0, 1, -3, 0, -1, 3].

0, 1, -3, 0, -1, 3, 0, 1, -3, 0, -1, 3, 0, 1, -3, 0, -1, 3, 0, 1, -3, 0, -1, 3, 0, 1, -3, 0, -1, 3, 0, 1, -3, 0, -1, 3, 0, 1, -3, 0, -1, 3, 0, 1, -3, 0, -1, 3, 0, 1, -3, 0, -1, 3, 0, 1, -3, 0, -1, 3, 0, 1, -3, 0, -1, 3, 0, 1, -3, 0, -1, 3, 0, 1, -3, 0, -1, 3

Offset

0,3

Links

Table of n, a(n) for n=0..77.

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

Formula

From Wesley Ivan Hurt, Jun 21 2016: (Start)

G.f.: x*(1-3*x)/(1+x^3).

a(n) + a(n-3) = 0 for n>2.

a(n) = 2 * sin(n*Pi/3) * (4*sin(2*n*Pi/3) - sqrt(3))/3. (End)

Maple

A133513:=n->[0, 1, -3, 0, -1, 3][(n mod 6)+1]: seq(A133513(n), n=0..100); # Wesley Ivan Hurt, Jun 21 2016

Mathematica

PadRight[{}, 100, {0, 1, -3, 0, -1, 3}] (* Wesley Ivan Hurt, Jun 21 2016 *)

Prog

(PARI) a(n)=[0, 1, -3, 0, -1, 3][n%6+1] \\ Charles R Greathouse IV, Jun 02 2011
(Magma) &cat [[0, 1, -3, 0, -1, 3]^^20]; // Wesley Ivan Hurt, Jun 21 2016

Crossrefs

Sequence in context: A071818 A014513 A144388 * A101000 A035653 A126595

Adjacent sequences: A133510 A133511 A133512 * A133514 A133515 A133516

Keyword

sign,easy,less

Author

Paul Curtz, Nov 30 2007

Status

approved