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 A072286 #9 Aug 26 2019 22:37:17
%S A072286 1,1,1,1,2,1,1,8,1,1,1,16,1,2,1,1,128,1,8,1,1,1,256,1,16,1,2,1,1,1024,
%T A072286 1,128,1,8,1,1,1,2048,1,256,1,16,1,2,1,1,32768,1,1024,1,128,1,8,1,1,1,
%U A072286 65536,1,2048,1,256,1,16,1,2,1,1,262144,1,32768,1,1024,1,128,1,8,1,1
%N A072286 Denominators of inverse unimodal analog of binomial coefficients: binomial(n,m) = Sum_{k=0..n-m} a(2*k+m-1, 2*k).
%C A072286 Entries are powers of 2.
%H A072286 G. C. Greubel, <a href="/A072286/b072286.txt">Rows n = 0..100 of triangle, flattened</a>
%F A072286 a(n, m) = binomial(n-m/2+1, n-m+1) - binomial(n-m/2, n-m+1).
%t A072286 a[n_, m_]:= Binomial[n -m/2 +1, n-m+1] - Binomial[n -m/2, n-m+1]; Flatten[Table[Denominator[a[n, m]], {n, 0, 11}, {m, 0, n}]]
%o A072286 (PARI) a(n,m) = binomial(n-m/2, n-m);
%o A072286 for(n=0,11, for(m=0,n, print1(denominator(a(n,m)), ", "))) \\ _G. C. Greubel_, Aug 26 2019
%o A072286 (Sage) [[denominator( binomial(n-m/2, n-m) ) for m in (0..n)] for n in (0..11)] # _G. C. Greubel_, Aug 26 2019
%Y A072286 Cf. A072285, A071922.
%K A072286 nonn,easy,frac,tabl
%O A072286 0,5
%A A072286 Michele Dondi (bik.mido(AT)tiscalinet.it), Jul 11 2002