cp's OEIS Frontend

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

%I A025193 #5 Sep 23 2016 08:27:55
%S A025193 1,5,13,27,48,76,114,163,224,299,388,494,617,758,920,1104,1310,1540,
%T A025193 1796,2078,2389,2729,3100,3504,3940,4412,4919,5464,6048,6672,7338,
%U A025193 8046,8799,9597,10441,11334,12277,13270,14315,15414,16568,17778,19045,20371,21758,23205
%N A025193 a(n) = [ 2nd elementary symmetric function of {sqrt(k)} ], k = 1,2,...,n.
%p A025193 SymmPolyn := proc(L::list,n::integer)
%p A025193     local c,a,sel;
%p A025193     a :=0 ;
%p A025193     sel := combinat[choose](nops(L),n) ;
%p A025193     for c in sel do
%p A025193         a := a+mul(L[e],e=c) ;
%p A025193     end do:
%p A025193     a;
%p A025193 end proc:
%p A025193 A025193 := proc(n)
%p A025193     [seq(sqrt(k),k=1..n)] ;
%p A025193     SymmPolyn(%,2) ;
%p A025193     floor(%) ;
%p A025193 end proc: # _R. J. Mathar_, Sep 23 2016
%K A025193 nonn
%O A025193 2,2
%A A025193 _Clark Kimberling_