A155158 Period 4: repeat [1, 5, 7, 3].

1, 5, 7, 3, 1, 5, 7, 3, 1, 5, 7, 3, 1, 5, 7, 3, 1, 5, 7, 3, 1, 5, 7, 3, 1, 5, 7, 3, 1, 5, 7, 3, 1, 5, 7, 3, 1, 5, 7, 3, 1, 5, 7, 3, 1, 5, 7, 3, 1, 5, 7, 3, 1, 5, 7, 3, 1, 5, 7, 3, 1, 5, 7, 3, 1, 5, 7, 3, 1, 5, 7, 3, 1, 5, 7, 3, 1, 5, 7, 3, 1, 5, 7, 3, 1, 5

Offset

0,2

Links

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

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

Formula

a(n) = A048473(n) mod 10.

First differences: a(n+1)-a(n) = (-1)^floor(n/2)*A010694(n+1).

Second differences: a(n+2)-2*a(n+1)+a(n) = (-1)^floor(1+n/2)*A010696(n).

Third differences: a(n+3)-3*a(n+2)+3*a(n+1)-a(n) = (-1)^floor((n+3)/2)*A105398(n).

G.f.: (1+4*x+3*x^2)/(1-x+x^2-x^3). - Colin Barker, Feb 28 2012

a(n) = a(n-1) - a(n-2) + a(n-3) for n>2. - Wesley Ivan Hurt, Jul 08 2016

Maple

seq(op([1, 5, 7, 3]), n=0..50); # Wesley Ivan Hurt, Jul 08 2016

Mathematica

PadRight[{}, 300, {1, 5, 7, 3}] (* Wesley Ivan Hurt, Jul 08 2016 *)

Prog

(Magma) &cat [[1, 5, 7, 3]^^30]; // Wesley Ivan Hurt, Jul 08 2016

Crossrefs

Cf. A010694, A010696, A048473, A105398.

Sequence in context: A110937 A099287 A058176 * A344111 A241140 A109986

Adjacent sequences: A155155 A155156 A155157 * A155159 A155160 A155161

Keyword

nonn,easy

Author

Paul Curtz, Jan 21 2009

Status

approved