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,1

Links

Table of n, a(n) for n=1..39.

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

Adjacent sequences: A043682 A043683 A043684 * A043686 A043687 A043688

Keyword

nonn,base

Author

Clark Kimberling

Status

approved