A025133 - OEIS

%I #8 Aug 10 2019 04:21:00

%S 9,256,5825,117561,2229206,40645536,721957977,12587900665,

%T 216494284886,3684700444921,62202196684966,1043201004995254,

%U 17402695775329724,289035985511398816,4782824895703150121,78896686234320906753,1297987090781736899270,21304819716551897181561

%N 4th elementary symmetric function of C(n,0), C(n,1), ..., C(n,n).

%p SymmPolyn := proc(L::list,n::integer)

%p     local c,a,sel;

%p     a :=0 ;

%p     sel := combinat[choose](nops(L),n) ;

%p     for c in sel do

%p         a := a+mul(L[e],e=c) ;

%p     end do:

%p     a;

%p end proc:

%p A025133 := proc(n)

%p     [seq(binomial(n,i),i=0..n)] ;

%p     SymmPolyn(%,4) ;

%p end proc: # _R. J. Mathar_, Sep 23 2016

%K nonn

%O 3,1

%A _Clark Kimberling_

%E a(10) corrected and more terms from _Sean A. Irvine_, Aug 10 2019