%I #8 Feb 16 2025 08:32:55
%S 2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,
%T 97,101,103,107,109,113,127,131,137,139,151,157,163,167,179,191,193,
%U 197,199,211,223,227,229,233,239,241,251,257,263,269,271,281,283,307,311
%N Prime numbers whose binary representations are split into a maximum of 5 runs.
%C The m-th prime is a term iff A100714(m) <= 5.
%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Run-LengthEncoding.html">Run-Length Encoding</a>.
%e a(3)=5 is a term because it is the 3rd prime whose binary representation splits into at most 5 runs: 5_10 = 101_2.
%t Select[Table[Prime[k], {k, 1, 50000}], Length[Split[IntegerDigits[ #, 2]]] <= 5 &]
%Y Cf. A100714, A000040.
%K base,nonn,changed
%O 1,1
%A Joseph Biberstine (jrbibers(AT)indiana.edu), Dec 11 2004