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
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Stefan Steinerberger, Apr 10 2006
STATUS
approved