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 A272728 #10 May 22 2016 00:30:49
%S A272728 0,1,0,1,2,1,0,1,0,1,2,3,2,1,0,1,2,1,0,1,0,1,0,1,2,3,4,3,2,1,0,1,0,1,
%T A272728 2,3,2,1,0,1,2,1,0,1,2,1,0,1,0,1,0,1,0,1,2,3,4,5,4,3,2,1,0,1,2,1,0,1,
%U A272728 0,1,0,1,2,3,4,3,2,1,0,1,0,1,2,3,2,1,0,1,0,1,2,3,2,1,0
%N A272728 a(n) = A272727(2n-1) - n.
%C A272728 a(n)>=0.
%C A272728 |a(n+1)-a(n)|=1.
%C A272728 All local minima occur where a(n)=0. Values at the local maxima are listed in A272729.
%C A272728 Empirically: The least n such that a(n) = k - 1 is n = 2^k - k. - _Danny Rorabaugh_, May 12 2016
%H A272728 Ivan Neretin, <a href="/A272728/b272728.txt">Table of n, a(n) for n = 1..8192</a>
%t A272728 nn = 120; s = Nest[Append[#, Count[# - Reverse[#], x_ /; x == 0]] &, {0}, 2 nn - 1]; Table[s[[2 n]] - n, {n, nn}] (* _Michael De Vlieger_, May 05 2016, after _Ivan Neretin_ at A272727 *)
%Y A272728 Cf. A272727, A272729.
%K A272728 nonn
%O A272728 1,5
%A A272728 _Ivan Neretin_, May 05 2016