|
|
A052840
|
|
A simple grammar.
|
|
0
|
|
|
0, 0, 2, 9, 56, 450, 4464, 52920, 731520, 11566800, 206035200, 4083488640, 89137843200, 2124970848000, 54929029478400, 1530259226496000, 45705137084006400, 1456873475016960000, 49362677881380864000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
E.g.f.: log((-1+x)/(-1+2*x))*x.
D-finite with recurrence: {a(1)=0, a(2)=2, (-2*n+2*n^3-4+4*n^2)*a(n)+(-6*n-3*n^2)*a(n+1)+(n+1)*a(n+2)}.
|
|
MAPLE
|
spec := [S, {B=Sequence(Z, 1 <= card), C=Cycle(B), S=Prod(Z, C)}, labeled]: seq(combstruct[count](spec, size=n), n=0..20);
|
|
MATHEMATICA
|
Flatten[{0, 0, Table[n!*(2^(n-1) - 1)/(n-1), {n, 2, 20}]}] (* Vaclav Kotesovec, Jun 06 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
encyclopedia(AT)pommard.inria.fr, Jan 25 2000
|
|
STATUS
|
approved
|
|
|
|