cp's OEIS Frontend

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

%I A025203 #13 Aug 17 2019 02:29:41
%S A025203 1,6,21,54,116,220,383,623,962,1424,2034,2821,3817,5053,6565,8391,
%T A025203 10569,13142,16153,19646,23671,28274,33509,39426,46082,53533,61836,
%U A025203 71051,81240,92466,104793,118288,133018,149054,166464,185324,205704,227683,251334
%N A025203 a(n) = [ 3rd elementary symmetric function of {log(k)} ], k = 2,3,...,n.
%p A025203 SymmPolyn := proc(L::list,n::integer)
%p A025203     local c,a,sel;
%p A025203     a :=0 ;
%p A025203     sel := combinat[choose](nops(L),n) ;
%p A025203     for c in sel do
%p A025203         a := a+mul(L[e],e=c) ;
%p A025203     end do:
%p A025203     a;
%p A025203 end proc:
%p A025203 A025203 := proc(n)
%p A025203     [seq(log(k),k=2..n)] ;
%p A025203     SymmPolyn(%,3);
%p A025203     floor(%) ;
%p A025203 end proc: # _R. J. Mathar_, Sep 23 2016
%K A025203 nonn
%O A025203 4,2
%A A025203 _Clark Kimberling_
%E A025203 a(15) corrected by Neven Juric (neven.juric(AT)apis-it.hr), May 28 2004
%E A025203 Offset set to 4 by _R. J. Mathar_, Sep 23 2016
%E A025203 More terms from _Sean A. Irvine_, Aug 17 2019