OFFSET
0,2
LINKS
J.-P. Bultel, S. Giraudo, Combinatorial Hopf algebras from PROs, arXiv preprint arXiv:1406.6903 [math.CO], 2014-2016. [DOI]
MATHEMATICA
terms = 11;
c[g_, t_] := c[g, t] = Sum[c[g, n, t], {n, 0, 3 terms}];
c[g_, n_, t_] := c[g, n, t] = P[g, n, t] - Sum[c[g, k, t] P[g, n-k-1, t], {k, 0, n - 1}];
P[g_, n_, t_] := 1/F[g, n, t];
F[g_, n_, t_] := F[g, n, t] = If[n<=g, 1, F[g, n-1, t] - t F[g, n-g-1, t]];
Rest[CoefficientList[1 - 1/c[2, t] + O[t]^(terms + 1), t]][[1 ;; terms]] (* Jean-François Alcover, Jul 25 2018 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
N. J. A. Sloane, Sep 21 2014
EXTENSIONS
a(12)-a(13) from Robert G. Wilson v, Jul 25 2018
STATUS
approved