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

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

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

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

Adjacent sequences: A043737 A043738 A043739 * A043741 A043742 A043743

Keyword

nonn,base

Author

Clark Kimberling

Status

approved