login
A043685
a(n) = (1/2)*(n-th number whose base-2 representation has exactly 10 runs).
2
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,1
MATHEMATICA
Select[Range[2, 3000, 2], Length[Split[IntegerDigits[#, 2]]]==10&]/2 (* Harvey P. Dale, Sep 17 2020 *)
CROSSREFS
Sequence in context: A006970 A007011 A064907 * A043576 A215326 A153508
KEYWORD
nonn,base
STATUS
approved