This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A203193 #5 Mar 30 2012 18:58:05
%S A203193 1,3,5,17,23,98,122,634,754,4644,5364,38268,43308,351504,391824,
%T A203193 3566736,3929616,39659040,43287840,479795040,519711840,6276458880,
%U A203193 6755460480,88299987840,94527008640,1329605141760,1416783432960
%N A203193 (n-1)-st elementary symmetric function of the first n terms of (1,2,1,3,1,4,1,5,...)=A133622.
%t A203193 f[k_] := If[Mod[k, 2] == 1, 1, 1 + k/2];
%t A203193 t[n_] := Table[f[k], {k, 1, n}]
%t A203193 a[n_] := SymmetricPolynomial[n - 1, t[n]]
%t A203193 Table[a[n], {n, 1, 33}] (* A203193 *)
%Y A203193 Cf. A133622.
%K A203193 nonn
%O A203193 1,2
%A A203193 _Clark Kimberling_, Dec 30 2011