A372825 Exponents of 3 and 2 in sequence A372823.

0, 0, 1, 2, 2, 4, 3, 5, 4, 7, 5, 8, 6, 10, 7, 12, 8, 13, 9, 15, 10, 16, 11, 18, 12, 20, 13, 21, 14, 23, 15, 24, 16, 26, 17, 27, 18, 29, 19, 31, 20, 32, 21, 34, 22, 35, 23, 37, 24, 39, 25, 40, 26, 42, 27, 43, 28, 45, 29, 46, 30, 48, 31, 50, 32, 51, 33, 53, 34

Offset

0,4

Links

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

Formula

a(2n) = n, a(2n+1) = least k such that 3^n <= 2^k.

Mathematica

a[n_] := If[EvenQ[n], n/2, Ceiling[((n - 1)/2) Log[3]/Log[2]]]
Table[a[n], {n, 0, 120}]

Crossrefs

Cf. A372823, A372826.

Sequence in context: A204900 A070803 A071693 * A225381 A007728 A262991

Adjacent sequences: A372822 A372823 A372824 * A372826 A372827 A372828

Keyword

nonn

Author

Clark Kimberling, May 18 2024

Status

approved