A372826 Exponents of 3 and 2 in sequence A372824.

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

Links

Table of n, a(n) for n=0..68.

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

Cf. A372824, A372825.

Sequence in context: A025532 A329584 A335507 * A195459 A133131 A261985

Adjacent sequences: A372823 A372824 A372825 * A372827 A372828 A372829

Keyword

nonn,easy

Author

Clark Kimberling, May 18 2024

Status

approved