A025193 - OEIS

A025193

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

1, 5, 13, 27, 48, 76, 114, 163, 224, 299, 388, 494, 617, 758, 920, 1104, 1310, 1540, 1796, 2078, 2389, 2729, 3100, 3504, 3940, 4412, 4919, 5464, 6048, 6672, 7338, 8046, 8799, 9597, 10441, 11334, 12277, 13270, 14315, 15414, 16568, 17778, 19045, 20371, 21758, 23205

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

OFFSET

2,2

LINKS

Table of n, a(n) for n=2..47.

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:

A025193 := proc(n)

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

SymmPolyn(%, 2) ;

floor(%) ;

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

CROSSREFS

Sequence in context: A307275 A212151 A123326 * A002717 A299897 A023541

Adjacent sequences: A025190 A025191 A025192 * A025194 A025195 A025196

KEYWORD

nonn

AUTHOR

Clark Kimberling

STATUS

approved