A144110 Period 6: repeat [2, 2, 2, 1, 1, 1].

2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 2, 1, 1, 1

Offset

0,1

Comments

a(n) = 2 for n = 0,1,2 modulo 6; a(n) = 1 for n = 3,4,5 modulo 6.

Links

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

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

Formula

G.f.: (1+2*x^3)/((1-x)*(1+x)*(1-x+x^2)); a(n) = 3/2-(-1)^n/6-A057079(n)/3. [R. J. Mathar, Sep 17 2008]

a(n) = a(n-1) - a(n-3) + a(n-4) for n>3; a(n) = 1 + mod(floor((-n-1)/3), 2); a(n) = A088911(n) + 1. - Wesley Ivan Hurt, Sep 04 2014

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

Maple

A144110:=n->1+(floor((-n-1)/3) mod 2): seq(A144110(n), n=0..100); # Wesley Ivan Hurt, Sep 04 2014

Mathematica

Table[1 + Mod[Floor[(-n - 1)/3], 2], {n, 0, 100}] (* Wesley Ivan Hurt, Sep 04 2014 *)

Prog

(Magma) [1+(Floor((-n-1)/3) mod 2) : n in [0..100]]; // Wesley Ivan Hurt, Sep 04 2014
(PARI) a(n)=[2, 2, 2, 1, 1, 1][n%6+1] \\ Edward Jiang, Sep 04 2014

Crossrefs

Cf. A057079, A088911, A135265.

Sequence in context: A211226 A306366 A135265 * A076490 A320278 A302111

Adjacent sequences: A144107 A144108 A144109 * A144111 A144112 A144113

Keyword

nonn,easy

Author

Philippe Deléham, Sep 11 2008, Sep 15 2008

Status

approved