%I #10 Oct 06 2023 03:29:21
%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 Numbers whose number of runs in the base2 representation is congruent to 0 mod 7.
%H Harvey P. Dale, <a href="/A043739/b043739.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[600],Mod[Length[Split[IntegerDigits[#,2]]],7]==0&] (* _Harvey P. Dale_, Apr 29 2019 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
