A043744 Numbers whose number of runs in the base-2 representation is congruent to 5 mod 7.

21, 37, 41, 43, 45, 53, 69, 73, 75, 77, 81, 83, 87, 89, 91, 93, 101, 105, 107, 109, 117, 133, 137, 139, 141, 145, 147, 151, 153, 155, 157, 161, 163, 167, 175, 177, 179, 183, 185, 187, 189, 197, 201, 203, 205, 209, 211, 215, 217

Offset

1,1

Links

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

Mathematica

Select[Range[300], Mod[Length[Split[IntegerDigits[#, 2]]], 7]==5&] (* Harvey P. Dale, Jul 08 2023 *)

Crossrefs

Sequence in context: A043572 A043728 A043738 * A043751 A043759 A043768

Adjacent sequences: A043741 A043742 A043743 * A043745 A043746 A043747

Keyword

nonn,base

Author

Clark Kimberling

Status

approved