0,5

Vector Matrix Markov: M={{0, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 0, 1}, {-1, 1, 0, -1, 3, -1, 0, 1}}; v[0] = Table[a[[n]], {n, 1, 8}]={1, 1, 1, 0, 2, 3, 5, 3}; v[n_] := v[n] = M.v[n - 1]; Table[v[n][[1]], {n, 0, 50}]

a()=Coefficient_Expansion(1 - x + x^3 - 3 x^4 + x^5 - x^7 + x^8).

f[x_] = x^4 - x^3 - 1; g[x] = ExpandAll[ -f[x]*x^4*f[1/x]]; a = Table[SeriesCoefficient[Series[1/g[x], {x, 0, 50}], n], {n, 0, 50}]

Sequence in context: A114230 A103781 A095244 this_sequence A108396 A117367 A080184

Adjacent sequences: A147590 A147591 A147592 this_sequence A147594 A147595 A147596

nonn

Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 08 2008