A043731 Numbers whose number of runs in their base-2 representation is congruent to 3 mod 5.

5, 9, 11, 13, 17, 19, 23, 25, 27, 29, 33, 35, 39, 47, 49, 51, 55, 57, 59, 61, 65, 67, 71, 79, 95, 97, 99, 103, 111, 113, 115, 119, 121, 123, 125, 129, 131, 135, 143, 159, 170, 191, 193, 195, 199, 207, 223, 225, 227, 231, 239, 241, 243, 247, 249, 251, 253, 257, 259, 263, 271

Offset

1,1

Links

Paolo Xausa, Table of n, a(n) for n = 1..10000

Mathematica

A043731Q[k_] := Mod[Length[Split[IntegerDigits[k, 2]]], 5] == 3;
Select[Range[500], A043731Q] (* Paolo Xausa, Nov 07 2025 *)

Crossrefs

Cf. A007088.

Sequence in context: A373674 A043721 A043727 * A043570 A043742 A043749

Adjacent sequences: A043728 A043729 A043730 * A043732 A043733 A043734

Keyword

nonn,base

Author

Clark Kimberling

Extensions

More terms from Paolo Xausa, Nov 07 2025

Status

approved