OFFSET
1,1
COMMENTS
FORMULA
E.g.f.: A(x)^y where A(x) is the e.g.f. for A047863.
EXAMPLE
2;
2, 4;
6, 12, 8;
38, 60, 48, 16;
390, 500, 360, 160, 32;
6062, 6180, 3840, 1680, 480, 64;
...
MATHEMATICA
nn=6; f[x_, y_]:=Sum[Exp[x 2^n] x^n/n!, {n, 0, nn}]; Map[Select[#, #>0&]&, Map[Table[#[[i]]->#[[i]]2^(i-1), {i, 1, Length[#]}][[All, 2]]&, Drop[Range[0, nn]!CoefficientList[Series[f[x, y]^(y/2), {x, 0, nn}], {x, y}], 1]]]//Grid
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Geoffrey Critzer, Sep 07 2013
STATUS
approved