A025203 a(n) = [ 3rd elementary symmetric function of {log(k)} ], k = 2,3,...,n.

1, 6, 21, 54, 116, 220, 383, 623, 962, 1424, 2034, 2821, 3817, 5053, 6565, 8391, 10569, 13142, 16153, 19646, 23671, 28274, 33509, 39426, 46082, 53533, 61836, 71051, 81240, 92466, 104793, 118288, 133018, 149054, 166464, 185324, 205704, 227683, 251334

Offset: 4

Author

Clark Kimberling

Keywords

• nonn

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:
A025203 := proc(n)
    [seq(log(k),k=2..n)] ;
    SymmPolyn(%,3);
    floor(%) ;
end proc: # R. J. Mathar, Sep 23 2016

Extensions

a(15) corrected by Neven Juric (neven.juric(AT)apis-it.hr), May 28 2004

Offset set to 4 by R. J. Mathar, Sep 23 2016

More terms from Sean A. Irvine, Aug 17 2019