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 A133601 #6 Jun 20 2015 17:23:26 %S A133601 1,3,1,5,3,1,7,6,5,1,9,10,14,5,1,11,15,30,15,7,1,13,21,55,35,27,7,1, %T A133601 15,28,91,70,77,28,9,1,17,36,140,126,182,84,44,9,1,19,45,204,210,378, %U A133601 210,156,45,11,1 %N A133601 A007318 * (A097806 + A133080 - I), I = Identity matrix. %F A133601 A007318 * (A097806 + A133080 - I), I = Identity matrix. Binomial transform of an infinite lower triangular matrix with (1,1,1,...) in the main diagonal and (2,1,2,1,2,...) in the subdiagonal; and the rest zeros. %e A133601 First few rows of the triangle are: %e A133601 1; %e A133601 3, 1; %e A133601 5, 3, 1; %e A133601 7, 6, 5, 1; %e A133601 9, 10, 14, 5, 1; %e A133601 11, 15, 30, 15, 7, 1; %e A133601 13, 21, 55, 35, 27, 7, 1; %e A133601 15, 28, 91, 70, 77, 28, 9, 1; %e A133601 ... %p A133601 A133601aux := proc(n,k) %p A133601 if n <> k then %p A133601 A097806(n,k)+A133080(n,k) ; %p A133601 else %p A133601 A097806(n,k)+A133080(n,k)-1 ; %p A133601 end if; %p A133601 end proc: %p A133601 A133601 := proc(n,k) %p A133601 add( A007318(n,j)*A133601aux(j+1,k+1),j=k..n) ; %p A133601 end proc: # _R. J. Mathar_, Jun 20 2015 %Y A133601 Cf. A097806, A133080, A052549 (row sums). %K A133601 nonn,tabl %O A133601 0,2 %A A133601 _Gary W. Adamson_, Sep 18 2007