A245473 Nearest integer to 2^log(n).

1, 2, 2, 3, 3, 3, 4, 4, 5, 5, 5, 6, 6, 6, 7, 7, 7, 7, 8, 8, 8, 9, 9, 9, 9, 10, 10, 10, 10, 11, 11, 11, 11, 12, 12, 12, 12, 12, 13, 13, 13, 13, 14, 14, 14, 14, 14, 15, 15, 15, 15, 15, 16, 16, 16, 16, 16, 17, 17, 17, 17, 17, 18, 18, 18, 18, 18, 19, 19, 19, 19

Offset

1,2

Links

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

Wikipedia, Commutative hyperoperations

Example

a(2) = 2 because 2^(log 2) = 1.616806672241674663299273071... and this rounds to 2 as an integer.

Maple

A245473:=n->round(2^log(n)); seq(A245473(n), n=1..50); # Wesley Ivan Hurt, Jul 24 2014

Mathematica

Table[Round[2^Log[n]], {n, 50}] (* Wesley Ivan Hurt, Jul 24 2014 *)

Prog

(PARI) a(n) = round(2^log(n)); \\ Michel Marcus, Jul 23 2014

Crossrefs

Sequence in context: A163127 A077113 A143796 * A306904 A057362 A214046

Adjacent sequences: A245470 A245471 A245472 * A245474 A245475 A245476

Keyword

nonn

Author

J. Lowell, Jul 23 2014

Extensions

More terms from Michel Marcus, Jul 23 2014

Status

approved