|
%I #8 Aug 16 2019 21:51:34
%S 1,2,5,13,35,97,285,877,2834,9564,33627,122806,464672,1817558,7334633,
%T 30482068,130254931,571484549,2571058232,11846898542,55849085590,
%U 269103224044,1324099844979,6647523600943,34025303476040,177434113736861
%N [ (n-1)st 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 A025198 := proc(n)
%p [seq(sqrt(k),k=1..n)] ;
%p SymmPolyn(%,n-1) ;
%p floor(%) ;
%p end proc: # _R. J. Mathar_, Sep 23 2016
%K nonn
%O 1,2
%A _Clark Kimberling_
%E a(17) onward corrected by _Sean A. Irvine_, Aug 16 2019
|
