%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