A044947 - OEIS

%I #6 Jul 19 2018 19:16:04

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

%T 2,2,2,2,2,0,2,2,2,2,2,2,2,0,1,3,3,3,3,3,3,1,1,1,1,1,1,1,3,3,1,3,3,3,

%U 3,3,3,3,1,3,3,3,3,3,3,3,1,3,3,3,3,3,3,3,1,3

%N Runs of odd length in the base 7 representation of n.

%t Table[Count[Split[IntegerDigits[n,7]],_?(OddQ[Length[#]]&)],{n,90}] (* _Harvey P. Dale_, Jul 19 2018 *)

%K nonn,base

%O 1,7

%A _Clark Kimberling_