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

Links

Table of n, a(n) for n=1..105.

Formula

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

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

Crossrefs

Cf. A095768.

Sequence in context: A110857 A108867 A218604 * A241922 A071446 A071469

Adjacent sequences: A095764 A095765 A095766 * A095768 A095769 A095770

Keyword

nonn

Author

Benoit Cloitre, Jun 05 2004

Status

approved