login
a(1)=1, a(n) = a((n+1)/2) + 2 if n is odd, a(n) = a(n/2) + 1 if n is even.
2

%I #11 Nov 05 2023 09:02:08

%S 1,2,4,3,6,5,5,4,8,7,7,6,7,6,6,5,10,9,9,8,9,8,8,7,9,8,8,7,8,7,7,6,12,

%T 11,11,10,11,10,10,9,11,10,10,9,10,9,9,8,11,10,10,9,10,9,9,8,10,9,9,8,

%U 9,8,8,7,14,13,13,12,13,12,12,11,13,12,12,11,12,11,11,10,13,12,12,11,12,11

%N a(1)=1, a(n) = a((n+1)/2) + 2 if n is odd, a(n) = a(n/2) + 1 if n is even.

%F a(n) = A061313(n) + 1. - _Philippe Deléham_, Nov 03 2008

%t a[1]=1;a[n_]:=a[n]=If[OddQ[n],a[(n+1)/2]+2,a[n/2]+1]; Table[a[n],{n,300}]

%Y Cf. A061313, A119476.

%K nonn

%O 1,2

%A _Zak Seidov_, May 22 2006