A095767 - OEIS

%I #8 Mar 29 2015 19:31:45

%S 0,0,1,1,0,2,2,2,0,1,0,0,3,3,3,3,0,1,0,2,2,0,1,1,0,0,0,4,4,4,4,4,0,1,

%T 0,2,0,0,1,0,3,3,0,1,1,0,0,0,2,0,0,1,1,1,0,0,0,0,5,5,5,5,5,5,0,1,0,2,

%U 0,1,1,0,3,0,1,1,0,2,0,0,1,0,0,4,4,4,0,1,0,0,2,0,0,1,1,1,0,3,3,0,0,0,1,1,1

%N a(n) = valuation(A004001(n),2).

%F Partial formula: a(2^(n+1) - n + i) = n for 0<=i<=n.

%t a[1] = a[2] = 1; a[n_] := a[n] = a[a[n - 1]] + a[n - a[n - 1]]; f[n_] := Length[ NestWhileList[ #/2 &, n, IntegerQ[ # ] &]] - 2; Table[ f[ a[n]], {n, 105}] (* _Robert G. Wilson v_, Jun 11 2004 *)

%Y Cf. A095768.

%K nonn

%O 1,6

%A _Benoit Cloitre_, Jun 05 2004