login
A131722
Period 6: repeat [0, 10, 10, 10, 10, 10].
1
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
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
KEYWORD
nonn,easy,less
AUTHOR
Paul Curtz, Sep 15 2007
STATUS
approved