OFFSET
0,3
LINKS
Vladimir Kruchinin and D. V. Kruchinin, Composita and their properties, arXiv:1103.2582 [math.CO], 2011-2013.
FORMULA
MAPLE
gf := exp((1 - 2*x)/(1 - 3*x + x^2) - 1): ser := series(gf, x, 22):
seq(k!*coeff(ser, x, k), k=0..19); # Peter Luschny, Jul 30 2020
PROG
(PARI) f(n, m) = sum(k=m, n, binomial(n-1, k-1) * sum(i=ceil((k-m)/2), k-m, binomial(i, k-m-i)*binomial(m+i-1, m-1))); \\ A188137
a(n) = if (n, n!*sum(k=1, n, f(n, k)/k!), 1); \\ Michel Marcus, Jul 30 2020
(PARI) my(x='x+O('x^25)); Vec(serlaplace(exp((1-2*x)/(1-3*x+x^2)-1))) \\ Joerg Arndt, Jul 30 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Kruchinin, Mar 28 2011
EXTENSIONS
More terms from Michel Marcus, Jul 30 2020
STATUS
approved