OFFSET
1,2
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..999
EXAMPLE
Let esf abbreviate "elementary symmetric function". Then
0th esf of {2}: 1;
1st esf of {2,2}: 2+2 = 4;
2nd esf of {2,2,3} is 2*2 + 2*3 + 2*3 = 16.
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:
A203153 := proc(n)
[seq(floor((k+3)/2), k=1..n)] ;
SymmPolyn(%, n-1) ;
end proc: # R. J. Mathar, Sep 23 2016
MATHEMATICA
f[k_] := Floor[(k + 3)/2]; t[n_] := Table[f[k], {k, 1, n}]
a[n_] := SymmetricPolynomial[n - 1, t[n]]
Table[a[n], {n, 1, 22}] (* A203153 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Dec 29 2011
STATUS
approved