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 A144464 #13 Feb 25 2014 06:52:58
%S A144464 1,1,1,1,2,1,1,2,2,1,1,2,4,2,1,1,2,4,4,2,1,1,2,4,8,4,2,1,1,2,4,8,8,4,
%T A144464 2,1,1,2,4,8,16,8,4,2,1,1,2,4,8,16,16,8,4,2,1,1,2,4,8,16,32,16,8,4,2,1
%N A144464 Triangle T(n,m) read by rows: T(n,m) = 2^min(m,n-m).
%F A144464 Row sums: sum_{m=0..n} T(n,m) = A027383(n).
%F A144464 T(n,k) = 2^A004197(n,k). - _Philippe Deléham_, Feb 25 2014
%e A144464 The triangle starts in row n=0 as:
%e A144464 {1},
%e A144464 {1, 1},
%e A144464 {1, 2, 1},
%e A144464 {1, 2, 2, 1},
%e A144464 {1, 2, 4, 2, 1},
%e A144464 {1, 2, 4, 4, 2, 1},
%e A144464 {1, 2, 4, 8, 4, 2, 1},
%e A144464 {1, 2, 4, 8, 8, 4, 2, 1},
%e A144464 {1, 2, 4, 8, 16, 8, 4, 2, 1},
%e A144464 {1, 2, 4, 8, 16, 16, 8, 4, 2, 1},
%e A144464 {1, 2, 4, 8, 16, 32, 16, 8, 4, 2, 1}
%t A144464 Clear[f, t]; f[n_, m_] = If[m <= Floor[n/2], m, n - m]; Table[Table[f[n, m], {m, 0, n}], {n, 0, 10}]; Flatten[%]
%o A144464 (PARI) T(n,m)=1<<min(m,n-m) \\ _Charles R Greathouse IV_, Jan 15 2012
%Y A144464 Cf. A004197, A152714, A152716, A152717.
%K A144464 nonn,easy,tabl
%O A144464 0,5
%A A144464 _Roger L. Bagula_ and _Gary W. Adamson_, Oct 09 2008
%E A144464 Offset corrected by the Associate Editors of the OEIS, Sep 11 2009
%E A144464 Better name by _Philippe Deléham_, Feb 25 2014