A131718 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

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

(list; graph; refs; listen; history; text; internal format)

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