A131724 Period 6: repeat [1, 9, 7, 13, 11, 9].

1, 9, 7, 13, 11, 9, 1, 9, 7, 13, 11, 9, 1, 9, 7, 13, 11, 9, 1, 9, 7, 13, 11, 9, 1, 9, 7, 13, 11, 9, 1, 9, 7, 13, 11, 9, 1, 9, 7, 13, 11, 9, 1, 9, 7, 13, 11, 9, 1, 9, 7, 13, 11, 9, 1, 9, 7, 13, 11, 9, 1, 9, 7, 13, 11, 9, 1, 9, 7, 13, 11, 9, 1, 9, 7, 13, 11, 9

Offset

0,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..1000

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

Formula

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

G.f.: (1+9*x+7*x^2+13*x^3+11*x^4+9*x^5)/(1-x^6).

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

a(n) = (25 - 6*cos(n*Pi) - 12*cos(n*Pi/3) - 4*cos(2*n*Pi/3) -2*sqrt(3)*sin(n*Pi/3) + 2*sqrt(3)*sin(2*n*Pi/3))/3. (End)

Maple

A131724:=n->[1, 9, 7, 13, 11, 9][(n mod 6)+1]: seq(A131724(n), n=0..100); # Wesley Ivan Hurt, Jun 18 2016

Mathematica

Flatten[Table[{1, 9, 7, 13, 11, 9}, {20}]] (* Wesley Ivan Hurt, Jun 18 2016 *)
PadRight[{}, 100, {1, 9, 7, 13, 11, 9}] (* Vincenzo Librandi, Jun 19 2016 *)

Prog

(Magma) &cat[[1, 9, 7, 13, 11, 9]: n in [0..20]]; // Wesley Ivan Hurt, Jun 18 2016

Crossrefs

Sequence in context: A010547 A011405 A268228 * A190995 A186830 A124050

Adjacent sequences: A131721 A131722 A131723 * A131725 A131726 A131727

Keyword

nonn,easy

Author

Paul Curtz, Sep 16 2007

Status

approved