0,4

G.f.: x*(1-2*x-2*x^2-x^3-4*x^4-7*x^5)/(1-3*x-x^2+3*x^3-x^4-2*x^5+x^6+x^7). [Sep 28 2009]

M = {{0, 1, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 1}, {-1, -1, 2, 1, -3, 1, 3}} v[n_] := v[n] = M.v[n - 1] a = Table[v[n][[1]], {n, 1, digits}]

Sequence in context: A041157 A042785 A136682 this_sequence A155881 A041731 A041331

Adjacent sequences: A107464 A107465 A107466 this_sequence A107468 A107469 A107470

nonn,easy

Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 27 2005

Definition replaced by recurrence by the Associate Editors of the OEIS, Sep 28 2009