|
|
A024523
|
|
a(n) = 3rd elementary symmetric function of {1, p(1), p(2), ..., p(n-1)}, where p(0) = 1.
|
|
2
|
|
|
6, 61, 348, 1646, 5754, 17535, 44268, 102412, 227750, 452531, 869928, 1576686, 2666994, 4341745, 6932756, 10845872, 16266454, 24022575, 34629762, 48484870, 67169634, 91475603, 123389134, 165725172, 219251334, 284875003, 365853566
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
3,1
|
|
LINKS
|
|
|
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:
[1, seq(ithprime(k), k=1..n-1)] ;
SymmPolyn(%, 3) ;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|