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

%I #5 Sep 23 2016 08:27:55

%S 1,5,13,27,48,76,114,163,224,299,388,494,617,758,920,1104,1310,1540,

%T 1796,2078,2389,2729,3100,3504,3940,4412,4919,5464,6048,6672,7338,

%U 8046,8799,9597,10441,11334,12277,13270,14315,15414,16568,17778,19045,20371,21758,23205

%N a(n) = [ 2nd 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 A025193 := proc(n)

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

%p SymmPolyn(%,2) ;

%p floor(%) ;

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

%K nonn

%O 2,2

%A _Clark Kimberling_