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,1

Links

Table of n, a(n) for n=3..20.

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

Crossrefs

Sequence in context: A348861 A212290 A296950 * A193129 A183493 A183424

Adjacent sequences: A025130 A025131 A025132 * A025134 A025135 A025136

Keyword

nonn

Author

Clark Kimberling

Extensions

a(10) corrected and more terms from Sean A. Irvine, Aug 10 2019

Status

approved