login
A052835
E.g.f.: 1/(1+log(1-x))-log(1-x).
0
1, 2, 4, 16, 94, 718, 6698, 73512, 925944, 13149408, 207723792, 3611861856, 68535403440, 1409110979664, 31203828680880, 740391021216384, 18739539315968256, 503958517859488896, 14350254992824182912, 431329037106221865216, 13646963521734433991424
OFFSET
0,2
COMMENTS
Previous name was: A simple grammar.
FORMULA
E.g.f.: (-log(-1/(-1+x))+log(-1/(-1+x))^2-1)/(-1+log(-1/(-1+x))).
a(n) ~ n! * exp(n)/(exp(1)-1)^(n+1). - Vaclav Kotesovec, Sep 30 2013
MAPLE
spec := [S, {C=Sequence(B), B=Cycle(Z), S=Union(B, C)}, labeled]: seq(combstruct[count](spec, size=n), n=0..20);
MATHEMATICA
CoefficientList[Series[1/(1+Log[1-x])-Log[1-x], {x, 0, 20}], x]* Range[0, 20]! (* Vaclav Kotesovec, Sep 30 2013 *)
CROSSREFS
Sequence in context: A058136 A156335 A026089 * A009565 A009838 A088335
KEYWORD
easy,nonn
EXTENSIONS
New name, using e.g.f., by Vaclav Kotesovec, Sep 30 2013
More terms from Alois P. Heinz, Mar 16 2016
STATUS
approved