login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%I #13 Oct 06 2023 03:27:21

%S 1,3,7,15,31,63,127,170,255,298,330,338,340,342,346,362,426,511,554,

%T 586,594,596,598,602,618,650,658,660,662,666,674,676,678,680,684,686,

%U 690,692,694,698,714,722,724,726,730,746,810,842

%N Numbers whose number of runs in the base-2 representation is congruent to 1 mod 7.

%H Harvey P. Dale, <a href="/A043740/b043740.txt">Table of n, a(n) for n = 1..5000</a>

%t Select[Range[1000],Mod[Length[Split[IntegerDigits[#,2]]],7]==1&] (* _Harvey P. Dale_, Nov 18 2019 *)

%K nonn,base

%O 1,2

%A _Clark Kimberling_