login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A025198 [ (n-1)st elementary symmetric function of {sqrt(k)} ], k = 1,2,...,n. 2

%I

%S 1,2,5,13,35,97,285,877,2834,9564,33627,122806,464672,1817558,7334633,

%T 30482068,130254933,571484558,2571058274,11846898738,55849086530,

%U 269103228643,1324099867934,6647523717749,34025304081591,177434116933088

%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_

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 22 19:46 EDT 2019. Contains 323481 sequences. (Running on oeis4.)