A044939 - OEIS

%I #12 Jun 02 2024 11:07:23

%S 0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,

%T 0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,1,0,0,0,0,

%U 0,0,0,1,0,1,1,1,1,1,1,0,0,1,0,0,0,0,0,0,0,0

%N Number of runs of even length in base-8 representation of n.

%C There are only seven terms greater than 1 in the first 1000 terms of the sequence, and the largest term in the first 10000 terms is 2. - _Harvey P. Dale_, Jun 02 2024

%H Harvey P. Dale, <a href="/A044939/b044939.txt">Table of n, a(n) for n = 1..10000</a>

%t Array[Total[Boole[EvenQ[Length/@Split[IntegerDigits[#,8]]]]]&,100] (* _Harvey P. Dale_, Jun 02 2024 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_