A132419 Period 6: repeat [1, 1, -2, -1, -1, 2].

1, 1, -2, -1, -1, 2, 1, 1, -2, -1, -1, 2, 1, 1, -2, -1, -1, 2, 1, 1, -2, -1, -1, 2, 1, 1, -2, -1, -1, 2, 1, 1, -2, -1, -1, 2, 1, 1, -2, -1, -1, 2, 1, 1, -2, -1, -1, 2, 1, 1, -2, -1, -1, 2, 1, 1, -2, -1, -1, 2, 1, 1, -2, -1, -1, 2, 1, 1, -2, -1, -1, 2, 1, 1, -2, -1, -1, 2, 1, 1, -2, -1, -1, 2, 1, 1, -2, -1, -1, 2, 1, 1, -2, -1, -1

Offset

0,3

Links

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

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

Formula

a(n) = A061347(n+1) * (-1)^floor(n/3).

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

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

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

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

Maple

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

Mathematica

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

Prog

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

Crossrefs

Cf. A061347.

Sequence in context: A131713 A100063 A057079 * A131556 A107751 A132367

Adjacent sequences: A132416 A132417 A132418 * A132420 A132421 A132422

Keyword

sign,easy,less

Author

Paul Curtz, Nov 13 2007

Extensions

Comment changed to formula by Wesley Ivan Hurt, Jun 21 2016

Status

approved