45,1
Alois P. Heinz, Table of n, a(n) for n = 45..1000
a(n) = n! * [x^n*y^9] Product_{n>=1} (1+y*x^n/n!).
b:= proc(n, i, t) option remember; `if`(t>i or t*(t+1)/2>n
or t*(2*i+1-t)/2<n, 0, `if`(n=0, 1, b(n, i-1, t)+
`if`(i>n, 0, b(n-i, i-1, t-1)*binomial(n, i))))
end:
a:= n-> b(n$2, 9):
seq(a(n), n=45..55);
Column k=9 of A131632.
Sequence in context: A095462 A115543 A219323 * A095464 A255360 A072288
Adjacent sequences: A272518 A272519 A272520 * A272522 A272523 A272524
nonn
Alois P. Heinz, May 01 2016
approved
