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 A082693 #20 Apr 25 2017 10:04:06
%S A082693 1,2,1,2,4,2,1,2,4,8,4,2,1,2,4,8,16,8,4,2,1,2,4,8,16,32,16,8,4,2,1,2,
%T A082693 4,8,16,32,64,32,16,8,4,2,1,2,4,8,16,32,64,128,64,32,16,8,4,2,1,2,4,8,
%U A082693 16,32,64,128,256,128,64,32,16,8,4,2,1,2,4,8,16,32,64,128,256,512,256,128
%N A082693 Pyramidal sequence built with powers of 2.
%e A082693 Triangle begins:
%e A082693 1
%e A082693 2 1 2
%e A082693 4 2 1 2 4
%e A082693 8 4 2 1 2 4 8
%e A082693 16 8 4 2 1 2 4 8 16
%e A082693 32 16 8 4 2 1 2 4 8 16 32
%e A082693 64 32 16 8 4 2 1 2 4 8 16 32 64
%e A082693 128 64 32 16 8 4 2 1 2 4 8 16 32 64 128
%e A082693 256 128 64 32 16 8 4 2 1 2 4 8 16 32 64 128 256
%e A082693 512 256 128 64 32 16 8 4 2 1 2 4 8 16 32 64 128 256 512
%e A082693 1024 512 256 128 64 32 16 8 4 2 1 2 4 8 16 32 64 128 256 512 1024
%e A082693 ... - _Philippe Deléham_, Mar 20 2013
%t A082693 pow2Pyram[row_] := Module[{st = 2^Range[0, row]}, Join[st, Reverse[Most[Rest[st]]]]]; Flatten[Array[pow2Pyram, 10]] (* _Harvey P. Dale_, May 09 2012 *)
%t A082693 Flatten[Table[Table[2^Abs[col], {col, -row, row}], {row, 0, 7}]] (* _Alonso del Arte_, Apr 15 2017 *)
%o A082693 (PARI) for(i=0,9,forstep(j=i,0,-1,print1(1<<j", "));for(j=1,i,print1(1<<j", "))) \\ _Charles R Greathouse IV_, Mar 20 2013
%Y A082693 Cf. A004738, A082693 (partial sums), A036563 (row sums).
%K A082693 nonn,tabf,easy
%O A082693 1,2
%A A082693 _Benoit Cloitre_, Apr 12 2003