%I #7 Nov 23 2013 18:15:19
%S 73,146,219,292,365,438,511,512,584,586,587,588,589,590,591,658,731,
%T 804,877,950,1023,1024,1097,1168,1169,1171,1172,1173,1174,1175,1243,
%U 1316,1389,1462,1535,1536,1609,1682,1752,1753,1754
%N Numbers whose maximal base 8 run length is 3.
%t Select[Range[2000],Max[Length/@Split[IntegerDigits[#,8]]]==3&] (* _Harvey P. Dale_, Nov 23 2013 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|