0,3

Vector Matrix Markov: M={{0, 1, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 1}, {-1, 1, 2, -3, -1, 5, -1, -3, 2, 1}}; v[0] = Table[a[[n]], {n, 1, 10}]={1, 1, 3, 2, 4, 3, 6, 9, 14, 23}; v[n_] := v[n] = M.v[n - 1]; Table[v[n][[1]], {n, 0, 50}]

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

G.f.:1/((x^5-x^4-x^3+x^2-1)*(x^5-x^3+x^2+x-1)) [From Maksym Voznyy (voznyy(AT)mail.ru), Jul 27 2009]

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

Sequence in context: A058708 A141731 A024856 this_sequence A023869 A024596 A065375

Adjacent sequences: A147595 A147596 A147597 this_sequence A147599 A147600 A147601

nonn

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