login
[ 4th elementary symmetric function of {sqrt(k)} ], k = 1,2,...,n.
1

%I #8 Aug 16 2019 21:25:01

%S 4,35,144,442,1120,2491,5027,9405,16562,27752,44608,69217,104194,

%T 152764,218848,307162,423311,573901,766646,1010488,1315718,1694111,

%U 2159055,2725697,3411089,4234341,5216779,6382114,7756607,9369254

%N [ 4th elementary symmetric function of {sqrt(k)} ], k = 1,2,...,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 A025195 := proc(n)

%p [seq(sqrt(k),k=1..n)] ;

%p SymmPolyn(%,4) ;

%p floor(%) ;

%p end proc: # _R. J. Mathar_, Sep 23 2016

%K nonn

%O 4,1

%A _Clark Kimberling_

%E More terms from _Sean A. Irvine_, Aug 16 2019