|
Search: id:A069009
|
|
|
| A069009 |
|
Let M denote the 6 X 6 matrix with rows / 1,1,1,1,1,1 / 1,1,1,1,1,0 / 1,1,1,1,0,0 / 1,1,1,0,0,0 / 1,1,0,0,0,0 / 1,0,0,0,0,0 / and A(n) the vector (x(n),y(n),z(n),t(n),u(n),v(n)) = M^n*A where A is the vector (1,1,1,1,1,1); then a(n) = t(n). |
|
+0
5
|
|
| 1, 3, 15, 59, 250, 1030, 4283, 17752, 73658, 305513, 1267344, 5257031, 21806850, 90457205, 375227042, 1556484658, 6456477531, 26782210229, 111095686086, 460837670465, 1911607611040, 7929568022610, 32892759309540
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
FORMULA
|
G.f.: 1/(1-3x-6x^2+4x^3+5x^4-x^5-x^6). - Roger Bagula and Gary Adamson (rlbagulatftn(AT)yahoo.com), Sep 19 2006
|
|
MATHEMATICA
|
b = {1, -3, -6, 4, 5, -1, -1}; p[x_] := Sum[x^(n - 1)*b[[8 - n]], {n, 1, 7}] q[x_] := ExpandAll[x^6*p[1/x]] Table[ SeriesCoefficient[ Series[x/q[x], {x, 0, 30}], n], {n, 0, 30}] - Roger Bagula and Gary Adamson (rlbagulatftn(AT)yahoo.com), Sep 19 2006
|
|
CROSSREFS
|
Cf. A066170.
Cf. A006359, A069007, A069008, A069009, A070778, A006359 (offset), for x(n), y(n), z(n), t(n), u(n), v(n).
Adjacent sequences: A069006 A069007 A069008 this_sequence A069010 A069011 A069012
Sequence in context: A049178 A049150 A062473 this_sequence A036750 A058748 A049314
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Benoit Cloitre (benoit7848c(AT)orange.fr), Apr 02 2002
|
|
EXTENSIONS
|
Edited by Henry Bottomley (se16(AT)btinternet.com), May 06 2002.
|
|
|
Search completed in 0.002 seconds
|
