%I #16 Aug 13 2021 19:12:20
%S 4,8,13,26,36,40,44,72,76,80,108,117,121,125,134,216,229,234,238,242,
%T 324,328,332,351,360,364,368,377,396,400,404,648,652,656,684,688,692,
%U 702,715,720,724,728,972,976,980,985,998,1053
%N Numbers whose base3 expansion has no run of digits with length < 2.
%H Vincenzo Librandi, <a href="/A033016/b033016.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[10000], Min[Length/@Split[IntegerDigits[#, 3]]]>1&] (* _Vincenzo Librandi_, Feb 05 2014 *)
%Y Cf. A007089. Supersequence of A033001.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
