%I #11 Jul 04 2021 14:14:57
%S 50,51,52,53,54,55,63,64,66,67,68,69,70,71,72,74,75,76,77,78,79,80,82,
%T 83,84,85,86,87,88,90,91,92,93,94,95,96,99,100,101,102,103,104,105,
%U 107,108,109,110,111,119,120,121,123,124,125,126
%N Numbers whose base-7 representation has exactly 3 runs.
%t Select[Range[200],Length[Split[IntegerDigits[#,7]]]==3&] (* _Harvey P. Dale_, Jul 04 2021 *)
%Y Cf. A007093.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|