login
Numbers whose base-7 representation has exactly 7 runs.
0

%I #11 Apr 25 2021 01:27:05

%S 120100,120101,120102,120103,120104,120105,120113,120114,120116,

%T 120117,120118,120119,120120,120121,120122,120124,120125,120126,

%U 120127,120128,120129,120130,120132,120133,120134,120135,120136

%N Numbers whose base-7 representation has exactly 7 runs.

%t Select[Range[121000],Length[Split[IntegerDigits[#,7]]]==7&] (* _Harvey P. Dale_, Jun 29 2015 *)

%Y Cf. A007093.

%K nonn,base

%O 1,1

%A _Clark Kimberling_