login
Numbers whose base-6 representation has exactly 3 runs.
0

%I #11 Feb 18 2023 10:04:24

%S 37,38,39,40,41,48,49,51,52,53,54,55,56,58,59,60,61,62,63,65,66,67,68,

%T 69,70,73,74,75,76,77,78,80,81,82,83,90,91,92,94,95,96,97,98,99,101,

%U 102,103,104,105,106,109,110,111,112,113,114

%N Numbers whose base-6 representation has exactly 3 runs.

%t Select[Range[200],Length[Split[IntegerDigits[#,6]]]==3&] (* _Harvey P. Dale_, Feb 18 2023 *)

%Y Cf. A007092.

%K nonn,base

%O 1,1

%A _Clark Kimberling_