A135537 Period 4: repeat [7, 5, 2, 4].

7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5, 2, 4, 7, 5

Offset

0,1

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) = A135536(n) mod 9.

O.g.f.: ((x+5)/(x^2+1)+9*(1-x))/2. a(n) = ((-1)^floor(n/2) * A010686(n+1) + 9)/2. - R. J. Mathar, Feb 23 2008

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

a(n) = a(n-1) - a(n-2) + a(n-3) for n>2, a(n) = a(n-4) for n>3.

a(n) = A021408(n) for n>1. (End)

Maple

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

Mathematica

Flatten[Table[{7, 5, 2, 4}, {20}]] (* Harvey P. Dale, Jun 22 2011 *)

Prog

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

Crossrefs

Cf. A010686, A010693, A021408, A135536.

Sequence in context: A318172 A070404 A258370 * A212038 A335863 A112545

Adjacent sequences: A135534 A135535 A135536 * A135538 A135539 A135540

Keyword

nonn,easy

Author

Paul Curtz, Feb 22 2008

Status

approved