A131718 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

Offset

0,3

Comments

Decimal expansion of 112121/999999. - Klaus Brockhaus, May 21 2010

Links

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

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

Formula

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, Jan 17 2008

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

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

a(n) = (4 + cos(n*Pi) - cos(n*Pi/3) - cos(2*n*Pi/3))/3. (End)

Maple

A131718:=n->(4+cos(n*Pi)-cos(n*Pi/3)-cos(2*n*Pi/3))/3: seq(A131718(n), n=0..100); # Wesley Ivan Hurt, Jun 17 2016

Mathematica

Flatten[Table[{1, 1, 2, 1, 2, 1}, {20}]] (* Wesley Ivan Hurt, Jun 17 2016 *)

Prog

(Magma) &cat[[1, 1, 2, 1, 2, 1]: k in [1..30]] // Vincenzo Librandi, Nov 23 2010
(PARI) a(n)=[1, 1, 2, 1, 2, 1][n%6+1] \\ Charles R Greathouse IV, Jun 02 2011

Crossrefs

Cf. A178149 (decimal expansion of (15+sqrt(1365))/30). - Klaus Brockhaus, May 21 2010

Sequence in context: A187284 A160198 A207709 * A131017 A244227 A214713

Adjacent sequences: A131715 A131716 A131717 * A131719 A131720 A131721

Keyword

nonn,easy,less

Author

Paul Curtz, Sep 15 2007

Extensions

More terms from Klaus Brockhaus, May 21 2010

Status

approved