%I #9 Aug 02 2019 20:57:46
%S 0,10000,15850,20000,23220,25850,28074,30000,31700,33220,34595,35850,
%T 37005,38074,39069,40000,40875,41700,42480,43220,43924,44595,45236,
%U 45850,46439,47005,47549,48074
%N a(n) = ceiling(10000*log_2(n)).
%t Ceiling[10000*Log[2,Range[50]]] (* _Harvey P. Dale_, May 07 2013 *)
%K nonn
%O 1,2
%A _N. J. A. Sloane_
%E Corrected by _Harvey P. Dale_, May 07 2013