login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A043631 Numbers whose base-9 representation has exactly 2 runs. 1

%I

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 27 16:41 EST 2022. Contains 350611 sequences. (Running on oeis4.)