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 A130303 #7 Oct 09 2012 03:51:12 %S A130303 1,3,1,5,2,1,7,3,2,1,9,4,3,2,1,11,5,4,3,2,1,13,6,5,4,3,2,1,15,7,6,5,4, %T A130303 3,2,1,17,8,7,6,5,4,3,2,1,19,9,8,7,6,5,4,3,2,1 %N A130303 A130296 * A000012. %D A130303 H. S. M. Coxeter, Regular Polytopes, 3rd ed., Dover, NY, 1973, pp 159-162 %F A130303 A130296 * A000012 as infinite lower triangular matrices. (1,3,5,...) as the left border; (1,2,3,...) in all other columns. %F A130303 e(n,k)= (e(n - 1, k)*e(n, k - 1) + 1)/e(n - 1, k - 1) %e A130303 1; %e A130303 3, 1; %e A130303 5, 2, 1; %e A130303 7, 3, 2, 1; %e A130303 9, 4, 3, 2, 1; %e A130303 11, 5, 4, 3, 2, 1; %e A130303 13, 6, 5, 4, 3, 2, 1; %e A130303 15, 7, 6, 5, 4, 3, 2, 1; %e A130303 17, 8, 7, 6, 5, 4, 3, 2, 1; %e A130303 19, 9, 8, 7, 6, 5, 4, 3, 2, 1; %t A130303 Clear[e, n, k]; %t A130303 e[n_, 0] := 2*n - 1; %t A130303 e[n_, k_] := 0 /; k >= n; %t A130303 e[n_, k_] := (e[n - 1, k]*e[n, k - 1] + 1)/e[n - 1, k - 1]; %t A130303 Table[Table[e[n, k], {k, 0, n - 1}], {n, 1, 10}]; %t A130303 Flatten[%] %Y A130303 Cf. A130296, A000012, A034856 (row sums), A130302 (commuted matrix product) %K A130303 nonn,tabl %O A130303 1,2 %A A130303 _Gary W. Adamson_, May 20 2007 %E A130303 Additional comments from _Roger L. Bagula_ and _Gary W. Adamson_, Mar 28 2009