cp's OEIS Frontend

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

%I A025133 #8 Aug 10 2019 04:21:00
%S A025133 9,256,5825,117561,2229206,40645536,721957977,12587900665,
%T A025133 216494284886,3684700444921,62202196684966,1043201004995254,
%U A025133 17402695775329724,289035985511398816,4782824895703150121,78896686234320906753,1297987090781736899270,21304819716551897181561
%N A025133 4th elementary symmetric function of C(n,0), C(n,1), ..., C(n,n).
%p A025133 SymmPolyn := proc(L::list,n::integer)
%p A025133     local c,a,sel;
%p A025133     a :=0 ;
%p A025133     sel := combinat[choose](nops(L),n) ;
%p A025133     for c in sel do
%p A025133         a := a+mul(L[e],e=c) ;
%p A025133     end do:
%p A025133     a;
%p A025133 end proc:
%p A025133 A025133 := proc(n)
%p A025133     [seq(binomial(n,i),i=0..n)] ;
%p A025133     SymmPolyn(%,4) ;
%p A025133 end proc: # _R. J. Mathar_, Sep 23 2016
%K A025133 nonn
%O A025133 3,1
%A A025133 _Clark Kimberling_
%E A025133 a(10) corrected and more terms from _Sean A. Irvine_, Aug 10 2019