OFFSET
0,3
COMMENTS
Row sums of A209664.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..386
Wikipedia, Symmetric Polynomials
MAPLE
b:= proc(n, i, k) option remember; `if`(n=0, 1, `if`(i<1, 0,
b(n, i-1, k) +`if`(i>n, 0, k*b(n-i, i, k))))
end:
a:= n-> add(b(n$2, k), k=0..n):
seq(a(n), n=0..20); # Alois P. Heinz, Nov 24 2016
MATHEMATICA
p[n_Integer, v_] := Sum[Subscript[x, j]^n, {j, v}]; p[par_?PartitionQ, v_] := Times @@ (p[#, v] & /@ par); Tr/@ Table[Tr[(p[#, k] & /@ Partitions[l]) /. Subscript[x, _] -> 1], {l, 11}, {k, l}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Wouter Meeussen, Mar 11 2012
EXTENSIONS
a(0), a(12)-a(19) from Alois P. Heinz, Nov 24 2016
STATUS
approved