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
Links
- Index entries for linear recurrences with constant coefficients, signature (1,-1,1).
Programs
-
Magma
&cat [[7, 5, 2, 4]^^30]; // Wesley Ivan Hurt, Jul 08 2016
-
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 *)
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)