A067586 Number of 0's in the binary expansion of A066884(n+1).

0, 0, 1, 0, 1, 2, 0, 1, 1, 3, 0, 1, 1, 2, 4, 0, 1, 1, 1, 2, 5, 0, 1, 1, 1, 2, 2, 6, 0, 1, 1, 1, 1, 2, 3, 7, 0, 1, 1, 1, 1, 2, 2, 3, 8, 0, 1, 1, 1, 1, 1, 2, 2, 3, 9, 0, 1, 1, 1, 1, 1, 2, 2, 2, 3, 10, 0, 1, 1, 1, 1, 1, 1, 2, 2, 2, 4, 11, 0, 1, 1, 1, 1, 1, 1, 2, 2, 2, 3, 4, 12, 0, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2

Offset

0,6

Links

Table of n, a(n) for n=0..101.

Mathematica

a[n_] := Module[{}, r=Floor[(Sqrt[8n+1]-1)/2]; s=n-r*(r+1)/2; For[k=0, True, k++, If[s<Binomial[r-s+1+k, k], Return[k]]]]

Crossrefs

Sequence in context: A323076 A286471 A176079 * A078879 A082859 A083537

Adjacent sequences: A067583 A067584 A067585 * A067587 A067588 A067589

Keyword

easy,tabl,nonn

Author

Jared Ricks (jaredricks(AT)yahoo.com), Jan 31 2002

Extensions

Edited by Dean Hickerson, Feb 16 2002

Status

approved