|
Search: id:A123952
|
|
|
| A123952 |
|
Sum of first row of the 5 X 5 matrix M^n, where M={5,-1,0,0,0},{-1,5,-1,0,0},{0, -1,5,-1,0},{0,0,-1,5,-1},{0,0,0,-1,5}. |
|
+0
1
|
|
| 1, 4, 17, 77, 371, 1891, 10123, 56503, 326699, 1945799, 11879987, 74039167, 469266331, 3014973511, 19581735203, 128267231663, 845770626539, 5605309590679, 37293554232307, 248855791875007, 1664285028373691
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
FORMULA
|
a(n)=25a(n-1)-246a(n-2)+1190a(n-3)-2828a(n-4)+2640a(n-5) (follows from the minimal polynomial of M).
|
|
EXAMPLE
|
a(2)=17 because the first row of M^2 is [26,-10,1,0,0].
|
|
MAPLE
|
with(linalg): M[1]:=matrix(5, 5, [5, -1, 0, 0, 0, -1, 5, -1, 0, 0, 0, -1, 5, -1, 0, 0, 0, -1, 5, -1, 0, 0, 0, -1, 5]): for n from 2 to 30 do M[n]:=multiply(M[1], M[n-1]) od: 1, seq(add(M[n][1, j], j=1..5), n=1..20);
a[0]:=1: a[1]:=4: a[2]:=17: a[3]:=77: a[4]:=371: for n from 5 to 20 do a[n]:=25*a[n-1]-246*a[n-2]+1190*a[n-3]-2828*a[n-4]+2640*a[n-5] od: seq(a[n], n=0..20);
|
|
MATHEMATICA
|
M = {{5, -1, 0, 0, 0}, {-1, 5, -1, 0, 0}, {0, -1, 5, -1, 0}, {0, 0, -1, 5, -1}, {0, 0, 0, -1, 5}}; v[1] = {1, 1, 1, 1, 1}; v[n_] := v[n] = M.v[n - 1]; a1 = Table[v[n][[1]], {n, 1, 50}]
|
|
CROSSREFS
|
Sequence in context: A081922 A124325 A104455 this_sequence A005494 A053486 A110307
Adjacent sequences: A123949 A123950 A123951 this_sequence A123953 A123954 A123955
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Gary Adamson and Roger Bagula (rlbagulatftn(AT)yahoo.com), Oct 27 2006
|
|
EXTENSIONS
|
Edited by njas, Nov 24 2006
|
|
|
Search completed in 0.002 seconds
|
