%I A100724
%S A100724 2,3,5,7,11,13,17,19,23,29,31,47,59,61,67,71,79,97,103,113,127,131,191,
%T A100724 193,199,223,227,239,241,251,257,263,271,383,449,463,479,487,499,503,
%U A100724 509,769,911,967,991,1009,1019,1021,1031,1039,1087,1151,1279,1543,1567
%N A100724 Prime numbers whose binary representations are split into a maximum of 
               3 runs.
%C A100724 The n-th prime is a member iff A100714(n)<=3
%H A100724 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               Run-LengthEncoding.html">"Run-Length Encoding."</a>
%e A100724 a(3)=5 is a member because it is the 3rd prime whose binary representation 
               splits into less than 3 runs. 5_10=101_2
%t A100724 Select[Table[Prime[k], {k, 1, 50000}], Length[Split[IntegerDigits[ #, 
               2]]] <= 3 &]
%Y A100724 Cf. A100714, A000040.
%Y A100724 Sequence in context: A012883 A002267 A051750 this_sequence A100110 A095323 
               A100370
%Y A100724 Adjacent sequences: A100721 A100722 A100723 this_sequence A100725 A100726 
               A100727
%K A100724 base,nonn
%O A100724 1,1
%A A100724 Joseph Biberstine (jrbibers(AT)indiana.edu), Dec 11 2004