|
|
A203193
|
|
(n-1)-st elementary symmetric function of the first n terms of (1,2,1,3,1,4,1,5,...)=A133622.
|
|
1
|
|
|
1, 3, 5, 17, 23, 98, 122, 634, 754, 4644, 5364, 38268, 43308, 351504, 391824, 3566736, 3929616, 39659040, 43287840, 479795040, 519711840, 6276458880, 6755460480, 88299987840, 94527008640, 1329605141760, 1416783432960
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
f[k_] := If[Mod[k, 2] == 1, 1, 1 + k/2];
t[n_] := Table[f[k], {k, 1, n}]
a[n_] := SymmetricPolynomial[n - 1, t[n]]
Table[a[n], {n, 1, 33}] (* A203193 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|