|
Search: id:A114725
|
|
|
| A114725 |
|
The first entry of the vector v[n]=Mv[n-1], where M is the 6 X 6 matrix [[0, 1, 0, 0, 0, 0], [0, 0, 1, 0, 0, 0], [0, 0, 0, 1, 0, 0], [0, 0, 0, 0, 1, 0], [0, 0, 0, 0, 0, 1], [1, 5, 10, 10, 5, 1]] and v[0] is the column vector [0, 1, 1, 2, 3, 5]. |
|
+0
2
|
|
| 0, 1, 1, 2, 3, 5, 55, 136, 502, 1799, 6247, 21902, 76882, 269498, 944895, 3313259, 11617291, 40733828, 142826195, 500794808, 1755948163, 6156922147, 21588159423, 75695064671, 265411365121, 930618039799
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
COMMENT
|
Characteristic polynomial of the matrix M is x^6-(x+1)^5.
|
|
FORMULA
|
Recurrence relation: a(n)=a(n-1)+5a(n-2)+10a(n-3)+10a(n-4)+5a(n-5)+a(n-6) for n>=6; a(0)=0,a(1)=a(2)=1,a(3)=2,a(4)=3,a(5)=5.
O.g.f.: x*(2*x+1)*(14*x^3+2*x-1)/(-1+x+5*x^2+10*x^3+10*x^4+5*x^5+x^6) . - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Dec 05 2007
|
|
MAPLE
|
a[0]:=0:a[1]:=1:a[2]:=1:a[3]:=2:a[4]:=3:a[5]:=5: for n from 6 to 25 do a[n]:=a[n-1]+5*a[n-2]+10*a[n-3]+10*a[n-4]+5*a[n-5]+a[n-6] od: seq(a[n], n=0..25);
|
|
MATHEMATICA
|
M = {{0, 1, 0, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 0, 1, 0}, {0, 0, 0, 0, 1}, {1, 4, 6, 4, 1}}; w[0] = {0, 1, 1, 2, 3}; w[n_] := w[n] = M.w[n - 1] a = Flatten[Table[w[n][[1]], {n, 0, 25}]]
|
|
CROSSREFS
|
Sequence in context: A100850 A060085 A114370 this_sequence A136340 A029961 A083665
Adjacent sequences: A114722 A114723 A114724 this_sequence A114726 A114727 A114728
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Feb 18 2006
|
|
EXTENSIONS
|
Edited by N. J. A. Sloane (njas(AT)research.att.com), May 13 2006
|
|
|
Search completed in 0.002 seconds
|
