A033016 Numbers whose base-3 expansion has no run of digits with length < 2.

4, 8, 13, 26, 36, 40, 44, 72, 76, 80, 108, 117, 121, 125, 134, 216, 229, 234, 238, 242, 324, 328, 332, 351, 360, 364, 368, 377, 396, 400, 404, 648, 652, 656, 684, 688, 692, 702, 715, 720, 724, 728, 972, 976, 980, 985, 998, 1053

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A007089. Supersequence of A033001.

Programs

Mathematica

Select[Range[10000], Min[Length/@Split[IntegerDigits[#, 3]]]>1&] (* Vincenzo Librandi, Feb 05 2014 *)