A004270 a(n) = ceiling(10000*log_2(n)).

0, 10000, 15850, 20000, 23220, 25850, 28074, 30000, 31700, 33220, 34595, 35850, 37005, 38074, 39069, 40000, 40875, 41700, 42480, 43220, 43924, 44595, 45236, 45850, 46439, 47005, 47549, 48074

Offset

1,2

Links

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

Mathematica

Ceiling[10000*Log[2, Range[50]]] (* Harvey P. Dale, May 07 2013 *)

Crossrefs

Sequence in context: A371004 A004268 A004269 * A168651 A043492 A167149

Adjacent sequences: A004267 A004268 A004269 * A004271 A004272 A004273

Keyword

nonn

Author

N. J. A. Sloane

Extensions

Corrected by Harvey P. Dale, May 07 2013

Status

approved