OFFSET
0,5
FORMULA
G.f. A(x) satisfies: A(x) = (1 + x^3 * A(x/(1 - x))) / ((1 - x) * (1 + x^3)).
MATHEMATICA
a[n_] := a[n] = 1 + Sum[Binomial[n - 3, k] a[k] , {k, 0, n - 4}]; Table[a[n], {n, 0, 31}]
nmax = 31; A[_] = 0; Do[A[x_] = (1 + x^3 A[x/(1 - x)])/((1 - x) (1 + x^3)) + O[x]^(nmax + 1) // Normal, nmax + 1]; CoefficientList[A[x], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, May 21 2021
STATUS
approved