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,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:
    a;
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