A372825 - OEIS

%I #11 May 30 2024 06:53:27

%S 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,

%T 14,23,15,24,16,26,17,27,18,29,19,31,20,32,21,34,22,35,23,37,24,39,25,

%U 40,26,42,27,43,28,45,29,46,30,48,31,50,32,51,33,53,34

%N Exponents of 3 and 2 in sequence A372823.

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

%t a[n_] := If[EvenQ[n], n/2, Ceiling[((n - 1)/2) Log[3]/Log[2]]]

%t Table[a[n], {n, 0, 120}]

%Y Cf. A372823, A372826.

%K nonn

%O 0,4

%A _Clark Kimberling_, May 18 2024