OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..250
Wikipedia, Symmetric Polynomials
FORMULA
Row sums of table A209666.
MAPLE
b:= proc(n, i, k) option remember; `if`(n=0, 1, `if`(i<1, 0,
add(b(n-i*j, i-1, k)*binomial(i+k-1, k-1)^j, j=0..n/i)))
end:
a:= n-> add(b(n$2, k), k=0..n):
seq(a(n), n=0..20); # Alois P. Heinz, Mar 04 2016
MATHEMATICA
h[n_, v_] := Tr@ Apply[Times, Table[Subscript[x, j], {j, v}]^# & /@ Compositions[n, v], {1}]; h[par_?PartitionQ, v_] := Times @@ (h[#, v] & /@ par); Tr/@ Table[Tr[(h[#, k] & /@ Partitions[l]) /. Subscript[x, _] -> 1], {l, 10}, {k, l}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Wouter Meeussen, Mar 11 2012
EXTENSIONS
a(0), a(11)-a(18) from Alois P. Heinz, Mar 04 2016
STATUS
approved