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

2, 13, 44, 112, 239, 457, 801, 1320, 2066, 3103, 4504, 6354, 8744, 11779, 15576, 20260, 25971, 32861, 41093, 50844, 62304, 75678, 91183, 109050, 129526, 152874, 179367, 209300, 242978, 280725, 322881, 369801, 421858, 479441, 542957, 612830, 689502

Offset

3,1

Links

Table of n, a(n) for n=3..39.

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

Crossrefs

Sequence in context: A296807 A366310 A308731 * A084156 A002534 A212501

Adjacent sequences: A025191 A025192 A025193 * A025195 A025196 A025197

Keyword

nonn

Author

Clark Kimberling

Extensions

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

Status

approved