A154870 Period 6: repeat [7, 5, 1, -7, -5, -1].

7, 5, 1, -7, -5, -1, 7, 5, 1, -7, -5, -1, 7, 5, 1, -7, -5, -1, 7, 5, 1, -7, -5, -1, 7, 5, 1, -7, -5, -1, 7, 5, 1, -7, -5, -1, 7, 5, 1, -7, -5, -1, 7, 5, 1, -7, -5, -1, 7, 5, 1, -7, -5, -1, 7, 5, 1, -7, -5, -1, 7, 5, 1, -7, -5, -1, 7, 5, 1, -7, -5, -1, 7, 5, 1, -7, -5, -1, 7, 5, 1, -7, -5, -1, 7, 5, 1

Offset

0,1

Comments

The sequence b(n) = (-A153130(n)) mod 9 = A153130(n+3) = A146501(n-1) = 8, 7, 5, 1, 2, 4,... has period length 6. This here is a(n)=b(n)-A153130(n).

Links

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

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

Formula

a(n) = -a(n-3) for n>2; G.f.: (7+5*x+x^2)/((1+x)*(1-x+x^2)). [R. J. Mathar, Jan 23 2009]

a(n) = cos(n*Pi) + 6*cos(n*Pi/3) + 2*sqrt(3)*sin(n*Pi/3). - Wesley Ivan Hurt, Jun 20 2016

Maple

A154870:=n->[7, 5, 1, -7, -5, -1][(n mod 6)+1]: seq(A154870(n), n=0..100); # Wesley Ivan Hurt, Jun 20 2016

Mathematica

PadRight[{}, 100, {7, 5, 1, -7, -5, -1}] (* Wesley Ivan Hurt, Jun 20 2016 *)

Prog

(Magma) &cat [[7, 5, 1, -7, -5, -1]^^20]; // Wesley Ivan Hurt, Jun 20 2016

Crossrefs

Cf. A146501, A153130.

Sequence in context: A254177 A021575 A334632 * A098687 A021137 A330156

Adjacent sequences: A154867 A154868 A154869 * A154871 A154872 A154873

Keyword

sign,easy

Author

Paul Curtz, Jan 16 2009

Extensions

Edited and extended by R. J. Mathar, Jan 23 2009

Status

approved