OFFSET
4,2
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
CROSSREFS
KEYWORD
nonn
AUTHOR
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
STATUS
approved