A033025 Numbers whose base-12 expansion has no run of digits with length < 2.
13, 26, 39, 52, 65, 78, 91, 104, 117, 130, 143, 157, 314, 471, 628, 785, 942, 1099, 1256, 1413, 1570, 1727, 1872, 1885, 1898, 1911, 1924, 1937, 1950, 1963, 1976, 1989, 2002, 2015, 3744, 3757, 3770, 3783, 3796, 3809, 3822
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1100
Programs
-
Mathematica
Select[Range[10000], Min[Length/@Split[IntegerDigits[#, 12]]]>1&] (* Vincenzo Librandi, Feb 05 2014 *)