cp's OEIS Frontend

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.

A130303 A130296 * A000012.

This page as a plain text file.
%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