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