Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A123955
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A123955 A tridiagonal 5 X 5 vector matrix Markov with 3's on the main diagonal with characteristic polynomial: 144 - 300 x + 234 x^2 - 86 x^3 + 15 x^4 - x^5). +0
1
0, 0, 0, 0, 1, 15, 139, 1029, 6691, 40041, 226435, 1230009, 6487195, 33464145, 169720915, 849504825, 4208146411, 20674387905, 100901918659, 489826044489, 2367517203931, 11402423910801, 54755709794995, 262308279256089 (list; graph; listen)
OFFSET

1,6

COMMENT

All the roots are large positive with a 2,3,4 count up in the middle: aaa = Table[x /. NSolve[Det[M - x*IdentityMatrix[5]] == 0, x][[n]], {n, 1, 5}] {1.26795, 2., 3., 4., 4.73205}

FORMULA

M = {{3, -1, 0, 0, 0}, {-1, 3, -1, 0, 0}, {0, -1, 3, -1, 0}, {0, 0, -1, 3, -1}, {0, 0, 0, -1, 3}}; v[1] = {0, 0, 0, 0, 1}; v[n_] := v[n] = M.v[n - 1]; a(n) = v[n][[1]]

MATHEMATICA

M = {{3, -1, 0, 0, 0}, {-1, 3, -1, 0, 0}, {0, -1, 3, -1, 0}, {0, 0, -1, 3, -1}, {0, 0, 0, -1, 3}}; v[1] = {0, 0, 0, 0, 1}; v[n_] := v[n] = M.v[n - 1]; a1 = Table[v[n][[1]], {n, 1, 50}]

CROSSREFS

Sequence in context: A125378 A126536 A030056 this_sequence A027802 A133716 A035330

Adjacent sequences: A123952 A123953 A123954 this_sequence A123956 A123957 A123958

KEYWORD

nonn,uned,probation

AUTHOR

Gary Adamson and Roger Bagula (rlbagulatftn(AT)yahoo.com), Oct 27 2006

page 1

Search completed in 0.002 seconds

Lookup | Welcome | Find friends | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
More pages | Superseeker | Maintained by N. J. A. Sloane (njas@research.att.com)

Last modified December 3 16:57 EST 2008. Contains 151279 sequences.


AT&T Labs Research