%I #4 Nov 05 2023 09:02:01
%S 1,3,4,5,5,6,6,7,6,7,7,8,7,8,8,9,7,8,8,9,8,9,9,10,8,9,9,10,9,10,10,11,
%T 8,9,9,10,9,10,10,11,9,10,10,11,10,11,11,12,9,10,10,11,10,11,11,12,10,
%U 11,11,12,11,12,12,13,9,10,10,11,10,11,11,12,10,11,11,12,11,12,12,13,10,11
%N a(1)=1, a(n)=a((n+1)/2)+1 if n is odd, a(n)=a(n/2)+2 if n is even.
%t a[1]=1;a[n_]:=a[n]=If[OddQ[n],a[(n+1)/2]+1,a[n/2]+2]; Table[a[n],{n,300}]
%Y Cf. A119477.
%K nonn
%O 1,2
%A _Zak Seidov_, May 22 2006