|
| |
|
|
A122161
|
|
Expansion of x*(1-3*x+x^2) / ( 1-x-2*x^2+x^3 ).
|
|
0
| |
|
|
1, -2, 1, -4, 0, -9, -5, -23, -24, -65, -90, -196, -311, -613, -1039, -1954, -3419, -6288, -11172, -20329, -36385, -65871, -118312, -213669, -384422, -693448, -1248623, -2251097, -4054895, -7308466, -13167159, -23729196, -42755048, -77046281, -138827181, -250164695, -450772776
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
REFERENCES
| P. Steinbach, Golden fields: a case for the heptagon, Math. Mag. 70 (1997), no. 1, 22-31.
|
|
|
LINKS
| Index to sequences with linear recurrences with constant coefficients, signature (1,2,-1).
|
|
|
FORMULA
| a(n) = A006053(n+1)-3*A006053(n) +A006053(n-1). - R. J. Mathar, Nov 07 2011
|
|
|
MATHEMATICA
| M = {{0, -1, -1}, {-1, 0, 0}, {-1, 0, 1}}; v[1] = {1, 1, 1}; v[n_] := v[n] = M.v[n - 1]; a1 = Table[v[n][[1]], {n, 1, 50}]
|
|
|
CROSSREFS
| Sequence in context: A011017 A077954 A077979 * A067164 A140505 A117971
Adjacent sequences: A122158 A122159 A122160 * A122162 A122163 A122164
|
|
|
KEYWORD
| easy,sign
|
|
|
AUTHOR
| Gary Adamson and Roger Bagula (qntmpkt(AT)yahoo.com), Oct 17 2006
|
| |
|
|
