A132708 Period 6: repeat [4, 2, 1, -4, -2, -1].

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

Offset

0,1

Comments

Old definition was: "First differences of 5^n mod 9".

Links

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

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

Formula

G.f.: (x^2 + 2*x + 4)/(x^3 + 1). - Chai Wah Wu, Jun 04 2016

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

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

a(n) = a(n-6) for n>5.

a(n) = cos(n*Pi) + 3*cos(n*Pi/3) + sqrt(3)*sin(n*Pi/3). (End)

Maple

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

Mathematica

PadRight[{}, 120, {4, 2, 1, -4, -2, -1}] (* Harvey P. Dale, Nov 21 2015 *)
Differences[PowerMod[5, Range[0, 90], 9]] (* Alonso del Arte, Jun 04 2016 *)

Prog

(Magma) &cat [[4, 2, 1, -4, -2, -1]^^30]; // Wesley Ivan Hurt, Jun 28 2016

Crossrefs

Cf. A070366 (5^n mod 9).

Sequence in context: A023526 A082901 A136619 * A153727 A349245 A356631

Adjacent sequences: A132705 A132706 A132707 * A132709 A132710 A132711

Keyword

sign,easy

Author

Paul Curtz, Nov 16 2007

Extensions

Name changed by Wesley Ivan Hurt, Jun 28 2016

Status

approved