OFFSET
1,2
LINKS
Alois P. Heinz, Rows n = 1..141, flattened
Wikipedia, Symmetric Polynomials
EXAMPLE
Table starts as:
: 1;
: 2, 6;
: 3, 14, 39;
: 5, 34, 129, 356;
: 7, 74, 399, 1444, 4055;
: 11, 166, 1245, 5876, 20455, 57786;
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:
T:= (n, k)-> b(n$2, k):
seq(seq(T(n, k), k=1..n), n=1..10); # 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); Table[Tr[(p[#, k] & /@ Partitions[l]) /. Subscript[x, _] -> 1], {l, 11}, {k, l}]
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Wouter Meeussen, Mar 11 2012
STATUS
approved