# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a067586 Showing 1-1 of 1 %I A067586 #6 Jun 24 2014 01:08:21 %S A067586 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, %T A067586 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, %U A067586 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 %N A067586 Number of 0's in the binary expansion of A066884(n+1). %t A067586 a[n_] := Module[{}, r=Floor[(Sqrt[8n+1]-1)/2]; s=n-r*(r+1)/2; For[k=0, True, k++, If[s