|
|
A025198
|
|
[ (n-1)st elementary symmetric function of {sqrt(k)} ], k = 1,2,...,n.
|
|
1
|
|
|
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
|
|
|
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:
a;
end proc:
[seq(sqrt(k), k=1..n)] ;
SymmPolyn(%, n-1) ;
floor(%) ;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|