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

Offset: 2

Author

Clark Kimberling

Keywords

• nonn

Programs

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:
A025193 := proc(n)
    [seq(sqrt(k),k=1..n)] ;
    SymmPolyn(%,2) ;
    floor(%) ;
end proc: # R. J. Mathar, Sep 23 2016