%I #11 Sep 29 2018 13:30:04
%S 5,9,10,17,18,20,21,27,33,34,36,37,40,41,42,51,54,65,66,68,69,72,73,
%T 74,80,81,82,84,85,99,102,108,119,129,130,132,133,136,137,138,144,145,
%U 146,148,149,160,161,162,164,165,168,169,170,195,198,204,216,219,231,238
%N A positive integer n is included if all runs of 1's in binary n are of the same length, and if there are at least two runs of 1's.
%C Clarification: A binary number consists of "runs" completely of 1's alternating with runs completely of 0's. No two or more runs all of the same digit are adjacent.
%C For the terms of this sequence together with those positive integers that, when written in binary, each contain only one run of 1's, see A164707.
%H Harvey P. Dale, <a href="/A164709/b164709.txt">Table of n, a(n) for n = 1..1000</a>
%t r1slQ[n_]:=Module[{idn=Select[Split[IntegerDigits[n,2]],MemberQ[ #,1]&]}, Length[ idn]>1 && Length[Union[Length/@idn]]==1]; Select[ Range[ 250], r1slQ] (* _Harvey P. Dale_, Sep 29 2018 *)
%Y Cf. A164707.
%K base,nonn
%O 1,1
%A _Leroy Quet_, Aug 23 2009
%E Extended by _Ray Chandler_, Mar 15 2010
|