|
%I #13 Aug 14 2021 02:15:51
%S 9,18,27,36,45,54,63,73,146,219,292,365,438,511,576,585,594,603,612,
%T 621,630,639,1152,1161,1170,1179,1188,1197,1206,1215,1728,1737,1746,
%U 1755,1764,1773,1782,1791,2304,2313,2322,2331,2340
%N Numbers whose base-8 expansion has no run of digits with length < 2.
%H Vincenzo Librandi, <a href="/A033021/b033021.txt">Table of n, a(n) for n = 1..1100</a>
%t Select[Range[10000], Min[Length/@Split[IntegerDigits[#, 8]]]>1&] (* _Vincenzo Librandi_, Feb 05 2014 *)
%Y Cf. A007094.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
