%I #15 Aug 02 2019 20:57:32
%S 0,10000,15850,20000,23219,25850,28074,30000,31699,33219,34594,35850,
%T 37004,38074,39069,40000,40875,41699,42479,43219,43923,44594,45236,
%U 45850,46439,47004,47549,48074,48580,49069,49542,50000,50444,50875
%N a(n) = round(10000*log_2(n)).
%t nint[x_] := If[Ceiling[x] - x <= 1/2, Ceiling[x], Floor[x]]; Table[nint[Log[2, n]*10000], {n, 1, 100}] (* _Stefan Steinerberger_, Apr 10 2006 *)
%t Round[10000*Log[2,Range[50]]] (* _Harvey P. Dale_, May 07 2013 *)
%K nonn
%O 1,2
%A _N. J. A. Sloane_
%E More terms from _Stefan Steinerberger_, Apr 10 2006