Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A122996
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A122996 A rational vector matrix Markov with 1/7 coefficient: characteristic Polynomial: -1 - x/7 + x^2. +0
1
1, 7, 56, 399, 3143, 22694, 176701, 1288707, 9947056, 73093699, 560499443, 4142090694, 31606563401, 234569007407, 1783290614056, 13277171976999, 100658412065743, 751239838938694, 5683502030160101, 42494254138156107 (list; graph; listen)
OFFSET

1,2

COMMENT

Two real roots: NSolve[Det[M - x*IdentityMatrix[2]] == 0, x] {{x -> -0.931119}, {x -> 1.07398}} Relative ratio is very small: limit[(a[[n + 1]]/a[[n]])/7,n->Infinity]=1.07398

FORMULA

M := {{0, 1}, {1, 1/7}}; v[1] = {1, 1}; v[n_] := v[n] = M.v[n - 1]; a(n) =v[n][[1]]*7^(n - 1)

MATHEMATICA

M := {{0, 1}, {1, 1/7}}; v[1] = {1, 1}; v[n_] := v[n] = M.v[n - 1]; a = Table[v[n][[1]]*7^(n - 1), {n, 1, 30}]

CROSSREFS

Cf. A026597.

Sequence in context: A082140 A054614 A104896 this_sequence A092315 A092318 A057090

Adjacent sequences: A122993 A122994 A122995 this_sequence A122997 A122998 A122999

KEYWORD

nonn,uned

AUTHOR

Roger Bagula (rlbagulatftn(AT)yahoo.com), Sep 22 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 July 26 23:19 EDT 2008. Contains 142293 sequences.


AT&T Labs Research