A033018 Numbers whose base-5 expansion has no run of digits with length < 2.
6, 12, 18, 24, 31, 62, 93, 124, 150, 156, 162, 168, 174, 300, 306, 312, 318, 324, 450, 456, 462, 468, 474, 600, 606, 612, 618, 624, 750, 775, 781, 787, 793, 799, 812, 843, 874, 1500, 1531, 1550, 1556, 1562, 1568, 1574, 1593
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1400
Programs
-
Mathematica
Select[Range[10000],Min[Length/@Split[IntegerDigits[#, 5]]]>1&] (* Vincenzo Librandi, Feb 05 2014 *)