c[k_, l_, m_] := Sum[(-1)^i Binomial[k - 1 - i*l, m - 1] Binomial[m, i], {i, 0, Floor[(k - m)/l]}]; a[L_, l_, m_] := Sum[Binomial[m + 1, m + 1 - j]*c[L - l*m, l - 1, j], {j, 0, m + 1}]; sa[L_, l_] := Sum[j*a[L, l, j], {j, 1, Ceiling[L/l]}]; Table[sa[j, 3], {j, 0, 100}]
CoefficientList[Series[x^3(x^2+x+1)^2/(x^5+x^4+x^3-1)^2, {x, 0, 100}], x]
LinearRecurrence[{0, 0, 2, 2, 2, -1, -2, -3, -2, -1}, {0, 0, 0, 1, 2, 3, 4, 7, 12, 17}, 50] (*
Harvey P. Dale, May 21 2025 *)