login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A024449 4th elementary symmetric function of the first n+3 primes. 4
210, 2927, 20581, 107315, 414849, 1376640, 4224150, 11063618, 27395788, 62364155, 129081579, 252768753, 480307611, 885449578, 1541654028, 2623783892, 4318819858, 6832984023, 10644660237, 16195499543, 24304992465, 36231495836 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Table of n, a(n) for n=1..22.

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:

A024449 := proc(n)

    [seq(ithprime(k), k=1..n+3)] ;

    SymmPolyn(%, 4) ;

end proc: # R. J. Mathar, Sep 23 2016

PROG

(PARI) e4(v)=sum(i=1, #v-3, v[i]*sum(j=i+1, #v-2, v[j]*sum(k=j+1, #v-1, v[k]*vecsum(v[k+1..#v]))))

a(n)=e4(primes(n)) \\ Charles R Greathouse IV, Jun 15 2015

CROSSREFS

Sequence in context: A027806 A024407 A027822 * A235240 A103604 A257711

Adjacent sequences:  A024446 A024447 A024448 * A024450 A024451 A024452

KEYWORD

nonn

AUTHOR

Clark Kimberling

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 25 12:01 EDT 2019. Contains 324352 sequences. (Running on oeis4.)