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,2

Comments

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

Links

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

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 *)

Crossrefs

Cf. A103889.

Sequence in context: A164304 A098521 A084150 * A359253 A320826 A322199

Adjacent sequences: A203193 A203194 A203195 * A203197 A203198 A203199

Keyword

nonn

Author

Clark Kimberling, Dec 30 2011

Status

approved