

A025203


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


2



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

4,2


LINKS

Table of n, a(n) for n=4..42.


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

Sequence in context: A015644 A067680 A115052 * A262719 A238702 A162539
Adjacent sequences: A025200 A025201 A025202 * A025204 A025205 A025206


KEYWORD

nonn


AUTHOR

Clark Kimberling


EXTENSIONS

a(15) corrected by Neven Juric (neven.juric(AT)apisit.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



