login
Numbers whose base-12 expansion has no run of digits with length < 2.
2

%I #10 Aug 14 2021 16:13:09

%S 13,26,39,52,65,78,91,104,117,130,143,157,314,471,628,785,942,1099,

%T 1256,1413,1570,1727,1872,1885,1898,1911,1924,1937,1950,1963,1976,

%U 1989,2002,2015,3744,3757,3770,3783,3796,3809,3822

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

%H Vincenzo Librandi, <a href="/A033025/b033025.txt">Table of n, a(n) for n = 1..1100</a>

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

%K nonn,base

%O 1,1

%A _Clark Kimberling_