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 A157603 #11 Feb 18 2014 22:26:49
%S A157603 1,1,1,1,3,1,1,1,4,1,1,1,11,5,1,1,1,1,16,6,1,1,1,1,42,22,7,1,1,1,1,1,
%T A157603 64,29,8,1,1,1,1,1,163,93,37,9,1,1,1,1,1,1,256,130,46,10,1,1,1,1,1,1,
%U A157603 638,386,176,56,11,1
%N A157603 Triangle read by rows: T(n,k) = 1 for k <= n/2, T(n,k)=A055248 otherwise.
%e A157603 {1},
%e A157603 {1, 1},
%e A157603 {1, 3, 1},
%e A157603 {1, 1, 4, 1},
%e A157603 {1, 1, 11, 5, 1},
%e A157603 {1, 1, 1, 16, 6, 1},
%e A157603 {1, 1, 1, 42, 22, 7, 1},
%e A157603 {1, 1, 1, 1, 64, 29, 8, 1},
%e A157603 {1, 1, 1, 1, 163, 93, 37, 9, 1},
%e A157603 {1, 1, 1, 1, 1, 256, 130, 46, 10, 1},
%e A157603 {1, 1, 1, 1, 1, 638, 386, 176, 56, 11, 1}
%t A157603 t[n_, m_] = Sum[Binomial[n, m - k], {k, 0, m}];
%t A157603 a = Table[Table[If[t[n, m] <= Sum[t[n, m], {m, 0, n}]/( n + 1), 1, t[n, n - m]], {m, 0, n}], {n, 0, 10}];
%t A157603 Flatten[%]
%K A157603 nonn,easy,tabl
%O A157603 0,5
%A A157603 _Roger L. Bagula_ and _Gary W. Adamson_, Mar 02 2009
%E A157603 Edited by _Joerg Arndt_, Sep 17 2013