login
A043740
Numbers whose number of runs in the base-2 representation is congruent to 1 mod 7.
1
1, 3, 7, 15, 31, 63, 127, 170, 255, 298, 330, 338, 340, 342, 346, 362, 426, 511, 554, 586, 594, 596, 598, 602, 618, 650, 658, 660, 662, 666, 674, 676, 678, 680, 684, 686, 690, 692, 694, 698, 714, 722, 724, 726, 730, 746, 810, 842
OFFSET
1,2
LINKS
MATHEMATICA
Select[Range[1000], Mod[Length[Split[IntegerDigits[#, 2]]], 7]==1&] (* Harvey P. Dale, Nov 18 2019 *)
CROSSREFS
Sequence in context: A115567 A275715 A273672 * A336683 A283091 A277716
KEYWORD
nonn,base
STATUS
approved