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 A203192 #6 Mar 30 2012 18:58:05 %S A203192 1,3,5,22,30,188,236,1936,2320,23584,27424,332928,379008,5352192, %T A203192 5997312,96602112,106924032,1934954496,2120749056,42600775680, %U A203192 46316666880,1022682562560,1104432168960,26588121661440,28550112215040 %N A203192 (n-1)-st elementary symmetric function of the first n terms of (1,2,1,4,1,6,1,8,...)=(A124625 for n>1). %t A203192 f[k_] := If[Mod[k, 2] == 1, 1, k]; %t A203192 t[n_] := Table[f[k], {k, 1, n}] %t A203192 a[n_] := SymmetricPolynomial[n - 1, t[n]] %t A203192 Table[a[n], {n, 1, 33}] (* A203192 *) %Y A203192 Cf. A124625. %K A203192 nonn %O A203192 1,2 %A A203192 _Clark Kimberling_, Dec 30 2011