A033019 - OEIS

%I #15 Aug 13 2021 19:54:10

%S 7,14,21,28,35,43,86,129,172,215,252,259,266,273,280,287,504,511,518,

%T 525,532,539,756,763,770,777,784,791,1008,1015,1022,1029,1036,1043,

%U 1260,1267,1274,1281,1288,1295,1512,1548,1555,1562

%N Numbers whose base-6 expansion has no run of digits with length < 2.

%H Vincenzo Librandi, <a href="/A033019/b033019.txt">Table of n, a(n) for n = 1..1000</a>

%t Select[Range[10000], Min[Length/@Split[IntegerDigits[#, 6]]]>1&] (* _Vincenzo Librandi_, Feb 05 2014 *)

%Y Cf. A007092.

%K nonn,base

%O 1,1

%A _Clark Kimberling_