|
|
|
|
1, 6, 24, 140, 1320, 12432, 121072, 1420848, 19012320, 267512300, 4002574224, 64842612276, 1121345413552, 20409576486600, 390729145716480, 7869294632279648, 166020221631955680, 3654120873937484628
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
a(n) is divisible by (n+1)*(n+2)/2. Rows of triangle A126265 lists coefficients of q in e.g.f. that satisfies: W(x,q) = exp( q*x*W(q*x,q) ).
|
|
LINKS
|
|
|
PROG
|
(PARI) {a(n)=local(W=x); for(i=1, n+2, W=x*exp(subst(W, x, q*x+x*O(x^(n+2))))); if(n<0, 0, Vec(Vec(W)[n+3]*(n+2)!+q*O(q^((n+2)*(n+3)/2)))[n+1])}
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|