A098232 Largest power of 2 <= 3^n.

1, 2, 8, 16, 64, 128, 512, 2048, 4096, 16384, 32768, 131072, 524288, 1048576, 4194304, 8388608, 33554432, 67108864, 268435456, 1073741824, 2147483648, 8589934592, 17179869184, 68719476736, 274877906944, 549755813888, 2199023255552, 4398046511104, 17592186044416

Offset

0,2

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Formula

a(n) = 2^floor(n*log_2(3)) = A000079(A056576(n)) = A000244(n)-A056577(n).

Example

a(4)=64 since 3^4=81 and 64 <= 81 < 128.

Maple

A098232:=n->2^floor(n*log[2](3)): seq(A098232(n), n=0..30); # Wesley Ivan Hurt, Mar 12 2015

Mathematica

Table[2^Floor[n*Log2[3]], {n, 0, 30}] (* Harvey P. Dale, Nov 04 2025 *)

Prog

(PARI) a(n) = 2^logint(3^n, 2); \\ Michel Marcus, Sep 06 2022

Crossrefs

Cf. A000079, A000244, A020857, A022921, A056576, A056577.

Sequence in context: A066792 A096195 A094014 * A354275 A195798 A100736

Adjacent sequences: A098229 A098230 A098231 * A098233 A098234 A098235

Keyword

easy,nonn

Author

Henry Bottomley, Oct 25 2004

Status

approved