A203196 (n-1)-st elementary symmetric function of the first n terms of (2,1,4,3,6,5,8,7,...)=A103889.

1, 3, 14, 50, 324, 1764, 14832, 109584, 1136160, 10628640, 131172480, 1486442880, 21289201920, 283465647360, 4622628648960, 70734282393600, 1294139872972800, 22376988058521600, 453942134876160000, 8752948036761600000

Offset: 1

Author

Clark Kimberling, Dec 30 2011

Keywords

• nonn

Comments

a(2n)=A000254(2n) for n=1,2,3...

Crossrefs

Cf. A103889.

Programs

Mathematica

f[k_] := If[Mod[k, 2] == 0, k - 1, k + 1]
t[n_] := Table[f[k], {k, 1, n}]
a[n_] := SymmetricPolynomial[n - 1, t[n]]
Table[a[n], {n, 1, 14}]  (* A203196 *)