This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A164709 #11 Sep 29 2018 13:30:04
%S A164709 5,9,10,17,18,20,21,27,33,34,36,37,40,41,42,51,54,65,66,68,69,72,73,
%T A164709 74,80,81,82,84,85,99,102,108,119,129,130,132,133,136,137,138,144,145,
%U A164709 146,148,149,160,161,162,164,165,168,169,170,195,198,204,216,219,231,238
%N A164709 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 A164709 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 A164709 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 A164709 Harvey P. Dale, <a href="/A164709/b164709.txt">Table of n, a(n) for n = 1..1000</a>
%t A164709 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 A164709 Cf. A164707.
%K A164709 base,nonn
%O A164709 1,1
%A A164709 _Leroy Quet_, Aug 23 2009
%E A164709 Extended by _Ray Chandler_, Mar 15 2010