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 A135529 #14 Oct 17 2016 16:40:43
%S A135529 1,2,2,3,4,3,4,4,6,5,8,4,6,5,8,5,8,7,12,6,10,9,16,5,8,7,12,6,10,9,16,
%T A135529 6,10,9,16,8,14,13,24,7,12,11,20,10,18,17,32,6,10,9,16,8,14,13,24,7,
%U A135529 12,11,20,10,18,17,32,7,12,11,20,10,18,17,32,9,16,15,28,14,26,25,48,8,14,13,24
%N A135529 Guy Steele's sequence GS(4,5) (see A135416).
%H A135529 G. C. Greubel, <a href="/A135529/b135529.txt">Table of n, a(n) for n = 1..1000</a>
%F A135529 a(n) = A135533(n) + 1 - 2^(A000120(n)-1). - _Don Knuth_, Mar 01 2008
%p A135529 GS(4,5,200); # [see A135416].
%t A135529 i = 4; j = 5; Clear[a]; a[1] = 1; a[n_?EvenQ] := a[n] = {0, 1, a[n/2], a[n/2]+1, 2*a[n/2], 2*a[n/2]+1}[[i]]; a[n_?OddQ] := a[n] = {0, 1, a[(n-1)/2], a[(n-1)/2]+1, 2*a[(n-1)/2], 2*a[(n-1)/2]+1}[[j]]; Array[a, 83] (* _Jean-François Alcover_, Sep 12 2013 *)
%Y A135529 Cf. A135416.
%K A135529 nonn
%O A135529 1,2
%A A135529 _N. J. A. Sloane_, based on a message from Guy Steele and _Don Knuth_, Mar 01 2008