A004269 a(n) = round(10000*log_2(n)).

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

Links

Table of n, a(n) for n=1..34.

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

Adjacent sequences: A004266 A004267 A004268 * A004270 A004271 A004272

Keyword

nonn

Author

N. J. A. Sloane

Extensions

More terms from Stefan Steinerberger, Apr 10 2006

Status

approved