A025195 [ 4th elementary symmetric function of {sqrt(k)} ], k = 1,2,...,n.

4, 35, 144, 442, 1120, 2491, 5027, 9405, 16562, 27752, 44608, 69217, 104194, 152764, 218848, 307162, 423311, 573901, 766646, 1010488, 1315718, 1694111, 2159055, 2725697, 3411089, 4234341, 5216779, 6382114, 7756607, 9369254

Offset

4,1

Links

Table of n, a(n) for n=4..33.

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

Crossrefs

Sequence in context: A185592 A296280 A011195 * A350407 A362346 A005552

Adjacent sequences: A025192 A025193 A025194 * A025196 A025197 A025198

Keyword

nonn

Author

Clark Kimberling

Extensions

More terms from Sean A. Irvine, Aug 16 2019

Status

approved