A043631 - OEIS

%I #17 Jan 06 2022 18:42:45

%S 9,11,12,13,14,15,16,17,18,19,21,22,23,24,25,26,27,28,29,31,32,33,34,

%T 35,36,37,38,39,41,42,43,44,45,46,47,48,49,51,52,53,54,55,56,57,58,59,

%U 61,62,63,64,65,66,67,68,69,71,72,73,74,75,76,77,78,79,81,90,92,93,94,95

%N Numbers whose base-9 representation has exactly 2 runs.

%H Harvey P. Dale, <a href="/A043631/b043631.txt">Table of n, a(n) for n = 1..1000</a>

%p rlen := proc(n,ba) local rs,s,dgs,i ; rs :=0 ; s := 0; dgs := convert(n,base,ba) ; for i from 1 to nops(dgs) do if s = 0 then s :=1 ; else if op(i,dgs) <> op(i-1,dgs) then rs := rs+1 ; s :=1 ; else s :=s+1 ; fi; fi; od: rs := rs+1 ; RETURN (rs) ; end: for n from 1 to 200 do if rlen(n,9) = 2 then printf("%d,",n) ; fi; od: # _R. J. Mathar_, Oct 20 2008

%t Select[Range[100],Length[Split[IntegerDigits[#,9]]]==2&] (* _Harvey P. Dale_, Jan 06 2022 *)

%Y Cf. A007095.

%K nonn,base

%O 1,1

%A _Clark Kimberling_

%E Extended by _R. J. Mathar_, Oct 20 2008