A095767 a(n) = valuation(A004001(n),2).

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

Offset: 1

Author

Benoit Cloitre, Jun 05 2004

Keywords

• nonn

Crossrefs

Cf. A095768.

Programs

Mathematica

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 *)

Formula

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