OFFSET
0,5
COMMENTS
Row r > 0 is asymptotic to 2^(2*r) * n^r * A128318(n) / (3^r * r!). - Vaclav Kotesovec, Mar 19 2016
LINKS
Paul D. Hanna, Table of n, a(n) for n = 0..527
EXAMPLE
Row g.f.s satisfy: R(x,0) = 1 + x*R(x,1)^2, R(x,1) = 1 + 2x*R(x,2)^2,
R(x,2) = 1 + 3x*R(x,3)^2, R(x,3) = 1 + 4x*R(x,4)^2, ...
where the initial rows begin:
R(x,0):[1,1,4,28,276,3480,53232,955524,19672320,456803328,...];
R(x,1):[1,2,12,114,1440,22368,409248,8585088,202733760,...];
R(x,2):[1,3,24,288,4440,82080,1752000,42178800,1127335680,...];
R(x,3):[1,4,40,580,10560,226560,5532960,150570240,4501422240,...];
R(x,4):[1,5,60,1020,21420,523320,14399280,437433780,14479664640,...];
R(x,5):[1,6,84,1638,38976,1068480,32716992,1098069504,39896236800,...];
R(x,6):[1,7,112,2464,65520,1991808,67189248,2469837888,97765355520,..];
R(x,7):[1,8,144,3528,103680,3461760,127569600,5098406400,...];
R(x,8):[1,9,180,4860,156420,5690520,227470320,9821970180,...];
R(x,9):[1,10,220,6490,227040,8939040,385265760,17875608960,..].
PROG
(PARI) {T(n, k)=local(A=1+(n+k+1)*x); for(j=0, k, A=1+(n+k+1-j)*x*A^2 +x*O(x^k)); polcoeff(A, k)}
for(n=0, 12, for(k=0, 10, print1(T(n, k), ", ")); print(""))
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Paul D. Hanna, Mar 11 2007
STATUS
approved