A131722 Period 6: repeat [0, 10, 10, 10, 10, 10].

0, 10, 10, 10, 10, 10, 0, 10, 10, 10, 10, 10, 0, 10, 10, 10, 10, 10, 0, 10, 10, 10, 10, 10, 0, 10, 10, 10, 10, 10, 0, 10, 10, 10, 10, 10, 0, 10, 10, 10, 10, 10, 0, 10, 10, 10, 10, 10, 0, 10, 10, 10, 10, 10, 0, 10, 10, 10, 10, 10, 0, 10, 10, 10, 10, 10, 0, 10

Offset

0,2

Links

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

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

Formula

a(n) = 10 * sign(n mod 6). - Wesley Ivan Hurt, Mar 21 2014

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

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

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

a(n) = 10 * sin(n*Pi/6)^2 * (9 + 8*cos(n*Pi/3) + 2*cos(2*n*Pi/3))/3. (End)

Maple

A131722:=n->10*signum(n mod 6); seq(A131722(n), n=0..100); # Wesley Ivan Hurt, Mar 21 2014

Mathematica

Table[10 Sign[Mod[n, 6]], {n, 0, 100}] (* Wesley Ivan Hurt, Mar 21 2014 *)
PadRight[{}, 120, {0, 10, 10, 10, 10, 10}] (* Harvey P. Dale, Jan 10 2023 *)

Prog

(Magma) &cat [[0, 10, 10, 10, 10, 10]^^20]; // Wesley Ivan Hurt, Jun 21 2016

Crossrefs

Sequence in context: A145279 A103708 A239051 * A072803 A163139 A269352

Adjacent sequences: A131719 A131720 A131721 * A131723 A131724 A131725

Keyword

nonn,easy,less

Author

Paul Curtz, Sep 15 2007

Status

approved