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