A130659 Period 4: repeat [0, 1, 2, 4].

0, 1, 2, 4, 0, 1, 2, 4, 0, 1, 2, 4, 0, 1, 2, 4, 0, 1, 2, 4, 0, 1, 2, 4, 0, 1, 2, 4, 0, 1, 2, 4, 0, 1, 2, 4, 0, 1, 2, 4, 0, 1, 2, 4, 0, 1, 2, 4, 0, 1, 2, 4, 0, 1, 2, 4, 0, 1, 2, 4, 0, 1, 2, 4, 0, 1, 2, 4, 0, 1, 2, 4, 0, 1, 2, 4, 0, 1, 2, 4, 0, 1, 2, 4, 0, 1, 2, 4, 0, 1, 2, 4, 0, 1, 2, 4, 0, 1, 2, 4

Offset

0,3

Links

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

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

Formula

a(n+4) = a(n).

a(n) = floor((5*n+1)/4) mod 5. - Gary Detlefs, May 15 2011

From Bruno Berselli, May 16 2011: (Start)

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

a(n) = (5-(-1)^n)*(6-2*I^(n*(n-1)))/8-2. (End)

From Wesley Ivan Hurt, Jul 09 2016: (Start)

a(n) = (7-3*I^(2*n)-(2+3*I)*I^(-n)-(2-3*I)*I^n)/4.

a(n) = (7-3*cos(n*Pi)-4*cos(n*Pi/2)-6*sin(n*Pi/2)-3*I*sin(n*Pi))/4. (End)

Maple

seq(op([0, 1, 2, 4]), n=0..40); # Wesley Ivan Hurt, Jul 09 2016

Mathematica

PadRight[{}, 100, {0, 1, 2, 4}] (* Wesley Ivan Hurt, Jul 09 2016 *)

Prog

(Magma) &cat [[0, 1, 2, 4]^^30]; // Wesley Ivan Hurt, Jul 09 2016

Crossrefs

Sequence in context: A276995 A074078 A309635 * A083741 A258761 A256245

Adjacent sequences: A130656 A130657 A130658 * A130660 A130661 A130662

Keyword

nonn,easy

Author

Paul Curtz, Jun 21 2007

Extensions

Name rewritten by Bruno Berselli, May 16 2011

Status

approved