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!)
A043423 Numbers having three 0's in base 8. 1
512, 1024, 1536, 2048, 2560, 3072, 3584, 4097, 4098, 4099, 4100, 4101, 4102, 4103, 4104, 4112, 4120, 4128, 4136, 4144, 4152, 4160, 4224, 4288, 4352, 4416, 4480, 4544, 4608, 5120, 5632, 6144, 6656, 7168, 7680, 8193, 8194 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Robert Israel, Table of n, a(n) for n = 1..10000

MAPLE

g:= proc(x) local j; seq(8*x+j, j=1..7) end proc:

h:= x -> 8*x:

B[1, 0]:= {$1..7}:

for d from 2 to 5 do

  B[d, 0]:= map(g, B[d-1, 0]);

  for i from 1 to min(d-2, 3) do

    B[d, i]:= map(g, B[d-1, i]) union map(h, B[d-1, i-1])

  od;

  if d <= 4 then B[d, d-1]:= map(h, B[d-1, d-2]) fi;

od:

sort(convert(B[4, 3] union B[5, 3], list)); # Robert Israel, Jan 15 2019

MATHEMATICA

Select[Range[10000], DigitCount[#, 8, 0]==3&] (* Harvey P. Dale, Nov 25 2018 *)

CROSSREFS

Cf. A007094.

Sequence in context: A046312 A045033 A066648 * A341886 A045058 A220017

Adjacent sequences:  A043420 A043421 A043422 * A043424 A043425 A043426

KEYWORD

nonn,base

AUTHOR

Clark Kimberling

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 28 04:02 EDT 2022. Contains 354112 sequences. (Running on oeis4.)