OFFSET
0,4
COMMENTS
Column k=0 is A054545.
FORMULA
E.g.f.: exp(y*x)*A(x) where A(x) is the e.g.f. for A054545.
EXAMPLE
1;
0, 1;
3, 0, 1;
54, 9, 0, 1;
3861, 216, 18, 0, 1;
1028700, 19305, 540, 30, 0, 1;
1067510583, 6172200, 57915, 1080, 45, 0, 1;
MATHEMATICA
nn=6; s=Sum[2^(2 Binomial[n, 2])x^n/n!, {n, 0, nn}]; Range[0, nn]! CoefficientList[Series[Exp[y x] s/Exp[x], {x, 0, nn}], {x, y}] //Grid
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Geoffrey Critzer, Oct 07 2012
STATUS
approved