OFFSET
1,3
COMMENTS
Row sums = A007838.
LINKS
Alois P. Heinz, Rows n = 1..300, flattened
FORMULA
E.g.f.: Product_{i>=1} (1 + y*x)^i/i.
EXAMPLE
: 1;
: 1;
: 2, 3;
: 6, 8;
: 24, 50;
: 120, 234, 120;
: 720, 1764, 630;
: 5040, 11808, 7392;
: 40320, 109584, 69552;
: 362880, 954000, 763200, 151200;
MAPLE
b:= proc(n, i) option remember; expand(`if`(n=0, 1,
`if`(i<1, 0, b(n, i-1)+ (i-1)!*b(n-i, i-1)*
`if`(i>n, 0, binomial(n, i)*x))))
end:
T:= n-> (p-> seq(coeff(p, x, i), i=1..degree(p)))(b(n$2)):
seq(T(n), n=1..15); # Alois P. Heinz, Oct 21 2015
MATHEMATICA
nn=15; f[list_]:=Select[list, #>0&]; Map[f, Drop[Range[0, nn]!CoefficientList[Series[Product[(1+y x^i/i), {i, 1, nn}], {x, 0, nn}], {x, y}], 1]]//Grid
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Geoffrey Critzer, Apr 01 2013
STATUS
approved