OFFSET
0,2
EXAMPLE
3^0 <= 2^1 < 3^1 < 2^3 < 3^2 < 2^4 < 3^3 < ...
MATHEMATICA
a[n_] := If[EvenQ[n], 3^(n/2), 2^Floor[((n + 1)/2) Log[3]/Log[2]]]
Table[a[n], {n, 0, 37}]
PROG
(PARI) a(n) = if (n%2, 3^(n\2), 2^logint(3^(n/2), 2)); \\ Michel Marcus, May 23 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 18 2024
STATUS
approved