|
%I #12 Nov 24 2016 17:36:26
%S 1,2,6,3,14,39,5,34,129,356,7,74,399,1444,4055,11,166,1245,5876,20455,
%T 57786,15,350,3783,23604,102455,347010,983535,22,746,11514,94852,
%U 513230,2083902,6887986,19520264,30,1546,34734,379908,2567230,12505470,48219486,156167944,441967518
%N T(n,k) = count of degree k monomials in the power sum symmetric polynomials p(mu,k) summed over all partitions mu of n.
%H Alois P. Heinz, <a href="/A209664/b209664.txt">Rows n = 1..141, flattened</a>
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Symmetric_polynomials">Symmetric Polynomials</a>
%e Table starts as:
%e : 1;
%e : 2, 6;
%e : 3, 14, 39;
%e : 5, 34, 129, 356;
%e : 7, 74, 399, 1444, 4055;
%e : 11, 166, 1245, 5876, 20455, 57786;
%p b:= proc(n, i, k) option remember; `if`(n=0, 1, `if`(i<1, 0,
%p b(n, i-1, k) +`if`(i>n, 0, k*b(n-i, i, k))))
%p end:
%p T:= (n, k)-> b(n$2, k):
%p seq(seq(T(n, k), k=1..n), n=1..10); # _Alois P. Heinz_, Nov 24 2016
%t 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}]
%Y Main diagonal is A124577; row sums are A209665.
%K nonn,tabl
%O 1,2
%A _Wouter Meeussen_, Mar 11 2012
|
