A043636 Numbers whose base-9 representation has exactly 7 runs.
538084, 538085, 538086, 538087, 538088, 538089, 538090, 538091, 538101, 538102, 538104, 538105, 538106, 538107, 538108, 538109, 538110, 538111, 538112, 538114, 538115, 538116, 538117, 538118, 538119, 538120, 538121
Offset: 1
Crossrefs
Cf. A007095.
Programs
-
Mathematica
Select[Range[550000],Length[Split[IntegerDigits[#,9]]]==7&] (* Harvey P. Dale, Mar 11 2015 *)