login
A004269
a(n) = round(10000*log_2(n)).
0
0, 10000, 15850, 20000, 23219, 25850, 28074, 30000, 31699, 33219, 34594, 35850, 37004, 38074, 39069, 40000, 40875, 41699, 42479, 43219, 43923, 44594, 45236, 45850, 46439, 47004, 47549, 48074, 48580, 49069, 49542, 50000, 50444, 50875
OFFSET
1,2
MATHEMATICA
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 *)
Round[10000*Log[2, Range[50]]] (* Harvey P. Dale, May 07 2013 *)
CROSSREFS
Sequence in context: A033829 A371004 A004268 * A004270 A168651 A043492
KEYWORD
nonn
EXTENSIONS
More terms from Stefan Steinerberger, Apr 10 2006
STATUS
approved