1,1

Table of n, a(n) for n=1..53.

Select[Range[300], Mod[Length[Split[IntegerDigits[#, 2]]], 8]==3&] (* Harvey P. Dale, Dec 25 2018 *)

Sequence in context: A043570 A043736 A043742 * A043757 A043766 A063479

Adjacent sequences: A043746 A043747 A043748 * A043750 A043751 A043752

nonn,base

Clark Kimberling

approved