login
A067586
Number of 0's in the binary expansion of A066884(n+1).
0
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
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
KEYWORD
easy,tabl,nonn
AUTHOR
Jared Ricks (jaredricks(AT)yahoo.com), Jan 31 2002
EXTENSIONS
Edited by Dean Hickerson, Feb 16 2002
STATUS
approved