A372826 - OEIS

%I #10 May 30 2024 22:25:34

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

%T 14,23,15,25,16,26,17,28,18,30,19,31,20,33,21,34,22,36,23,38,24,39,25,

%U 41,26,42,27,44,28,45,29,47,30,49,31,50,32,52,33,53,34

%N Exponents of 3 and 2 in sequence A372824.

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

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

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

%Y Cf. A372824, A372825.

%K nonn,easy

%O 0,4

%A _Clark Kimberling_, May 18 2024