A025133 4th elementary symmetric function of C(n,0), C(n,1), ..., C(n,n).
9, 256, 5825, 117561, 2229206, 40645536, 721957977, 12587900665, 216494284886, 3684700444921, 62202196684966, 1043201004995254, 17402695775329724, 289035985511398816, 4782824895703150121, 78896686234320906753, 1297987090781736899270, 21304819716551897181561
Offset: 3
Keywords
Programs
-
Maple
SymmPolyn := proc(L::list,n::integer) local c,a,sel; a :=0 ; sel := combinat[choose](nops(L),n) ; for c in sel do a := a+mul(L[e],e=c) ; end do: a; end proc: A025133 := proc(n) [seq(binomial(n,i),i=0..n)] ; SymmPolyn(%,4) ; end proc: # R. J. Mathar, Sep 23 2016
Extensions
a(10) corrected and more terms from Sean A. Irvine, Aug 10 2019