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 A059939 #11 Jan 03 2016 13:37:00 %S A059939 0,0,1,1,1,1,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,4,4,4, %T A059939 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,5,5,5,5,5,5, %U A059939 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5 %N A059939 a(n) = floor(log_2(n+1) - 1). %D A059939 Y. S. Song, On the combinatorics of rooted binary phylogenetic trees, Annals of Combinatorics, 7, 2003, 365-379. %H A059939 Harry J. Smith, <a href="/A059939/b059939.txt">Table of n, a(n) for n = 1..1024</a> %F A059939 a(n) = A000523(n+1) - 1 = floor(log_10(A007931(n))). %e A059939 a(6) = floor(log_2(7) - 1) = floor(1.807...) = 1; %e A059939 a(7) = floor(log_2(8) - 1) = floor(2) = 2; %e A059939 a(8) = floor(log_2(9) - 1) = floor(2.169...) = 2. %t A059939 Table[Floor[Log[2,n+1]-1],{n,110}] (* _Harvey P. Dale_, Oct 04 2014 *) %o A059939 (PARI) { a=0; p=4; for (n=1, 1024, if (n + 1 == p, a++; p*=2;); write("b059939.txt", n, " ", a); ) } \\ _Harry J. Smith_, Jun 30 2009 %K A059939 easy,nonn %O A059939 1,7 %A A059939 _Henry Bottomley_, Feb 14 2001