|
| |
|
|
A058184
|
|
"Real rabbits": a(n) Real(c(n) where complex c(n)=a(n)+ib(n) and c(0)=i, c(1)=-i, c(n)=c(n-1)+ic(n-2).
|
|
1
| |
|
|
0, 0, -1, 0, 1, 2, 4, 6, 7, 6, 1, -10, -28, -52, -77, -92, -79, -14, 128, 362, 675, 1002, 1201, 1038, 200, -1640, -4681, -8760, -13039, -15678, -13636, -2834, 21007, 60526, 113681, 169670, 204652, 179108, 39883, -269012, -782559, -1475214, -2207752, -2671278
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,6
|
|
|
LINKS
| Alois P. Heinz, Table of n, a(n) for n = 0..1000
Index to sequences with linear recurrences with constant coefficients, signature (2,-1,0,-1).
|
|
|
FORMULA
| a(n) = a(n-1)-A014291(n-2) = 2*a(n-1)-a(n-2)-a(n-4).
G.f.: (2*x^3-x^2)/(1-2*x+x^2+x^4). - Alois P. Heinz, Sep 24 2008
|
|
|
MAPLE
| a:= n-> (Matrix([[0, -1, 0, 0]]). Matrix([[2, 1, 0, 0], [ -1, 0, 1, 0], [0, 0, 0, 1], [ -1, 0, 0, 0]])^n)[1, 4]: seq (a (n), n=0..50); # Alois P. Heinz, Sep 24 2008
|
|
|
MATHEMATICA
| CoefficientList[Series[(2x^3-x^2)/(1-2x+x^2+x^4), {x, 0, 50}], x] (* From Harvey P. Dale, Apr 03 2011 *)
|
|
|
CROSSREFS
| Cf. A014291.
Sequence in context: A091476 A114431 A167689 * A087777 A030118 A023835
Adjacent sequences: A058181 A058182 A058183 * A058185 A058186 A058187
|
|
|
KEYWORD
| sign,nice
|
|
|
AUTHOR
| Henry Bottomley (se16(AT)btinternet.com), Dec 04 2000
|
| |
|
|
