OFFSET
0,4
FORMULA
a(2n) = n, a(2n+1) = greatest k such that 2^k < 3^(n+1).
MATHEMATICA
a[n_] := If[EvenQ[n], n/2, Floor[((n + 1)/2) Log[3]/Log[2]]]
Table[a[n], {n, 0, 120}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, May 18 2024
STATUS
approved