%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_