A131716 Period 6: repeat [0, 1, 2, 5, 8, 9].

0, 1, 2, 5, 8, 9, 0, 1, 2, 5, 8, 9, 0, 1, 2, 5, 8, 9, 0, 1, 2, 5, 8, 9, 0, 1, 2, 5, 8, 9, 0, 1, 2, 5, 8, 9, 0, 1, 2, 5, 8, 9, 0, 1, 2, 5, 8, 9, 0, 1, 2, 5, 8, 9, 0, 1, 2, 5, 8, 9, 0, 1, 2, 5, 8, 9, 0, 1, 2, 5, 8, 9, 0, 1, 2, 5, 8, 9, 0, 1, 2, 5, 8, 9, 0, 1

Offset

0,3

Links

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

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

Formula

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

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

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

a(n) = (25 - 5*cos(n*Pi) - 10*cos(n*Pi/3) - 10*cos(2*n*Pi/3) - 14*sqrt(3)*sin(n*Pi/3) - 2*sqrt(3)*sin(2*n*Pi/3))/6. (End)

Maple

A131716:=n->[0, 1, 2, 5, 8, 9][(n mod 6)+1]: seq(A131716(n), n=0..100); # Wesley Ivan Hurt, Jun 19 2016

Mathematica

PadRight[{}, 200, {0, 1, 2, 5, 8, 9}] (* Wesley Ivan Hurt, Jun 19 2016 *)

Prog

(Magma) &cat[[0, 1, 2, 5, 8, 9]^^20]; // Wesley Ivan Hurt, Jun 19 2016

Crossrefs

Cf. A131711.

Sequence in context: A374442 A250320 A250561 * A011279 A185094 A071099

Adjacent sequences: A131713 A131714 A131715 * A131717 A131718 A131719

Keyword

nonn,easy

Author

Paul Curtz, Sep 14 2007

Status

approved