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