A164714 A positive integer n is included if all runs of 0's in binary n are of the same length, and if all runs of 1's in binary n are of the same length, and if there are at least two runs of 0's and at least two runs of 1's.
10, 21, 36, 42, 54, 73, 85, 136, 170, 204, 219, 238, 273, 292, 341, 438, 528, 585, 682, 792, 819, 924, 990, 1057, 1365, 1755, 1911, 2080, 2184, 2340, 2730, 3120, 3171, 3276, 3510, 3640, 3822, 3900, 4030, 4161, 4369, 4681, 5461, 7399, 8256, 10922, 12384
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..100
Programs
-
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 *)
Extensions
More terms from Sean A. Irvine, Sep 28 2009
Comments