A043722 Numbers whose number of runs in the base-2 representation is congruent to 1 mod 3.

1, 3, 7, 10, 15, 18, 20, 22, 26, 31, 34, 36, 38, 40, 44, 46, 50, 52, 54, 58, 63, 66, 68, 70, 72, 76, 78, 80, 85, 88, 92, 94, 98, 100, 102, 104, 108, 110, 114, 116, 118, 122, 127, 130, 132, 134, 136, 140, 142, 144, 149, 152, 156, 158

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

Select[Range[200], Mod[Length[Split[IntegerDigits[#, 2]]], 3]==1&] (* Harvey P. Dale, Mar 24 2022 *)

Prog

(PARI) isok(k) = (hammingweight(bitxor(k, k>>1)) % 3) == 1; \\ Michel Marcus, Oct 04 2023

Crossrefs

Cf. A005811.

Sequence in context: A307203 A347638 A224880 * A288175 A214066 A120738

Adjacent sequences: A043719 A043720 A043721 * A043723 A043724 A043725

Keyword

nonn,base

Author

Clark Kimberling

Status

approved