A060419 a(n) = floor(3^log_2(n)).

0, 1, 3, 5, 9, 12, 17, 21, 27, 32, 38, 44, 51, 58, 65, 73, 81, 89, 97, 106, 115, 124, 134, 143, 154, 164, 174, 185, 196, 207, 219, 231, 243, 255, 267, 280, 292, 305, 319, 332, 346, 359, 373, 388, 402, 417, 431, 446, 462, 477, 492, 508, 524, 540, 556, 573, 589

Offset

0,3

Links

Harry J. Smith, Table of n, a(n) for n = 0..1000

Formula

a(n) = floor(n^log_2(3)) where log_2(3) = 1.58496250...

Mathematica

Floor[3^Log2[Range[0, 60]]] (* Harvey P. Dale, Jun 21 2020 *)

Prog

(PARI) { default(realprecision, 100); t=1/log(2); for (n=0, 1000, if (n==0, a=0, a=floor(3^(log(n)*t) + 0.0000001)); write("b060419.txt", n, " ", a); ) } \\ Harry J. Smith, Jul 04 2009

Crossrefs

Cf. A006046 which shares the property that a(2^k)=3^k.

Sequence in context: A242067 A127722 A234813 * A005766 A211538 A368613

Adjacent sequences: A060416 A060417 A060418 * A060420 A060421 A060422

Keyword

nonn

Author

Henry Bottomley, Apr 05 2001

Status

approved