A025198 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

A025198

[ (n-1)st elementary symmetric function of {sqrt(k)} ], k = 1,2,...,n.

1, 2, 5, 13, 35, 97, 285, 877, 2834, 9564, 33627, 122806, 464672, 1817558, 7334633, 30482068, 130254931, 571484549, 2571058232, 11846898542, 55849085590, 269103224044, 1324099844979, 6647523600943, 34025303476040, 177434113736861

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

Table of n, a(n) for n=1..26.

MAPLE

SymmPolyn := proc(L::list, n::integer)

local c, a, sel;

a :=0 ;

sel := combinat[choose](nops(L), n) ;

for c in sel do

a := a+mul(L[e], e=c) ;

end do:

end proc:

A025198 := proc(n)

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

SymmPolyn(%, n-1) ;

floor(%) ;

end proc: # R. J. Mathar, Sep 23 2016

CROSSREFS

Sequence in context: A082582 A086581 A059027 * A221205 A037247 A308273

Adjacent sequences: A025195 A025196 A025197 * A025199 A025200 A025201

KEYWORD

nonn

AUTHOR

Clark Kimberling

EXTENSIONS

a(17) onward corrected by Sean A. Irvine, Aug 16 2019

STATUS

approved