%I A100726
%S A100726 2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97,
%T A100726 101,103,107,109,113,127,131,137,139,149,151,157,163,167,173,179,181,
%U A100726 191,193,197,199,211,223,227,229,233,239,241,251,257,263,269,271,277
%N A100726 Prime numbers whose binary representations are split into a maximum of 
               7 runs.
%C A100726 The n-th prime is a member iff A100714(n)<=7
%H A100726 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               Run-LengthEncoding.html">"Run-Length Encoding."</a>
%e A100726 a(3)=5 is a member because it is the 3rd prime whose binary representation 
               splits into at most 7 runs. 5_10=101_2
%t A100726 Select[Table[Prime[k], {k, 1, 50000}], Length[Split[IntegerDigits[ #, 
               2]]] <= 7 &]
%Y A100726 Cf. A100714, A000040.
%Y A100726 Sequence in context: A158611 A000040 A008578 this_sequence A015919 A064555 
               A095320
%Y A100726 Adjacent sequences: A100723 A100724 A100725 this_sequence A100727 A100728 
               A100729
%K A100726 base,nonn
%O A100726 1,1
%A A100726 Joseph Biberstine (jrbibers(AT)indiana.edu), Dec 11 2004