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

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

Offset

0,3

Links

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

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

Formula

|a(n)| = A131718(n).

a(n) = A131717(n+1) - A131717(n).

O.g.f.: (1+x+2*x^2-x^3+2*x^4+x^5)/((1-x)*(1+x)*(x^2+x+1)*(x^2-x+1)). - R. J. Mathar, Jul 07 2008

a(n) = (3+2*(-1)^n+cos(n*Pi/3)-3*cos(n*Pi/3)^2+3*sin(n*Pi/3)^2)/3. - Wesley Ivan Hurt, Jun 24 2022

Mathematica

Flatten[Table[{1, 1, 2, -1, 2, 1}, {20}]] (* Wesley Ivan Hurt, Jun 24 2022 *)
PadRight[{}, 120, {1, 1, 2, -1, 2, 1}] (* Harvey P. Dale, Oct 10 2023 *)

Crossrefs

Cf. A131717, A131718.

Sequence in context: A160198 A207709 A131718 * A244227 A214713 A049046

Adjacent sequences: A131014 A131015 A131016 * A131018 A131019 A131020

Keyword

sign,easy

Author

Paul Curtz, Sep 23 2007

Extensions

Edited by R. J. Mathar, Jul 07 2008

Status

approved