A043685 a(n) = (1/2)*(n-th number whose base-2 representation has exactly 10 runs).

341, 597, 661, 677, 681, 682, 683, 685, 693, 725, 853, 1109, 1173, 1189, 1193, 1194, 1195, 1197, 1205, 1237, 1301, 1317, 1321, 1322, 1323, 1325, 1333, 1349, 1353, 1354, 1355, 1357, 1361, 1362, 1363, 1364, 1366, 1367, 1369

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Programs

Mathematica

Select[Range[2,3000,2],Length[Split[IntegerDigits[#,2]]]==10&]/2 (* Harvey P. Dale, Sep 17 2020 *)