A004269 - OEIS

%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