%I #7 Nov 21 2013 12:47:03
%S 85,149,165,169,171,173,181,213,277,293,297,299,301,309,325,329,331,
%T 333,337,339,343,345,347,349,357,361,363,365,373,405,421,425,427,429,
%U 437,469,533,549,553,555,557,565,581,585,587,589
%N Number of runs in the base 2 representation of n is congruent to 7 mod 10.
%t Select[Range[600],Mod[Length[Split[IntegerDigits[#,2]]],10]==7&] (* _Harvey P. Dale_, Mar 06 2012 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_