login
A372826
Exponents of 3 and 2 in sequence A372824.
3
0, 1, 1, 3, 2, 4, 3, 6, 4, 7, 5, 9, 6, 11, 7, 12, 8, 14, 9, 15, 10, 17, 11, 19, 12, 20, 13, 22, 14, 23, 15, 25, 16, 26, 17, 28, 18, 30, 19, 31, 20, 33, 21, 34, 22, 36, 23, 38, 24, 39, 25, 41, 26, 42, 27, 44, 28, 45, 29, 47, 30, 49, 31, 50, 32, 52, 33, 53, 34
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
Sequence in context: A025532 A329584 A335507 * A195459 A133131 A261985
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, May 18 2024
STATUS
approved