OFFSET
1,1
COMMENTS
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.
The length of each run of 1's may be different that the length of each run of 0's.
The integers of this sequence, along with those positive integers that have (when written in binary) only one run of 0's and/or only one run of 1's, make up sequence A164713.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..100
MATHEMATICA
bslQ[n_]:=Module[{r=Split[IntegerDigits[n, 2]]}, Length[r]>3&&Length[ Union[ Length/@Take[r, {1, -1, 2}]]]==1&&Length[Union[Length/@Take[r, {2, -1, 2}]]] == 1]; Select[Range[13000], bslQ] (* Harvey P. Dale, Jan 13 2021 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Leroy Quet, Aug 23 2009
EXTENSIONS
More terms from Sean A. Irvine, Sep 28 2009
STATUS
approved