OFFSET
2,2
COMMENTS
LINKS
Alois P. Heinz, Rows n = 2..50, flattened
FORMULA
E.g.f.: exp( y*log(A(x)) ) where A(x) is the e.g.f. for A006129.
EXAMPLE
1;
4;
38, 3;
728, 40;
26704, 730, 15;
1866256, 20608, 420;
251548592, 961324, 12460, 105;
66296291072, 79643424, 484624, 5040;
34496488594816, 12495365424, 27712860, 220500, 945;
MATHEMATICA
nn=12; a=Sum[2^Binomial[n, 2]x^n/n!, {n, 0, nn}]; b=a/Exp[x]; f[list_]:=Select[list, #>0&]; Map[f, Drop[Range[0, nn]!CoefficientList[Series[Exp[y Log[b]], {x, 0, nn}], {x, y}], 2]]//Flatten
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Geoffrey Critzer, Oct 26 2012
STATUS
approved