A025221 [ 4th elementary symmetric function of sqrt(k+1) ], k = 1,2,...,n.

10, 70, 266, 763, 1835, 3911, 7614, 13820, 23709, 38835, 61192, 93292, 138244, 199846, 282674, 392185, 534822, 718122, 950838, 1243061, 1606347, 2053855, 2600487, 3263034, 4060332, 5013417, 6145691, 7483098, 9054291, 10890824, 13027333

Offset

4,1

Links

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

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

Crossrefs

Sequence in context: A130548 A160662 A090084 * A271040 A005567 A174434

Adjacent sequences: A025218 A025219 A025220 * A025222 A025223 A025224

Keyword

nonn

Author

Clark Kimberling

Extensions

9 more terms from R. J. Mathar, Sep 23 2016

Status

approved