A033026 Numbers whose base-13 expansion has no run of digits with length < 2.

14, 28, 42, 56, 70, 84, 98, 112, 126, 140, 154, 168, 183, 366, 549, 732, 915, 1098, 1281, 1464, 1647, 1830, 2013, 2196, 2366, 2380, 2394, 2408, 2422, 2436, 2450, 2464, 2478, 2492, 2506, 2520, 2534, 4732, 4746, 4760, 4774

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Links

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

Programs

Mathematica

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