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!)
A032882 Numbers whose base-3 representation Sum_{i=0..m} d(i)*3^i has d(0) < d(1) > d(2) < ... 1
1, 2, 3, 6, 7, 15, 16, 30, 33, 34, 57, 60, 61, 69, 70, 138, 141, 142, 150, 151, 273, 276, 277, 300, 303, 304, 312, 313, 516, 519, 520, 543, 546, 547, 555, 556, 624, 627, 628, 636, 637, 1245, 1248, 1249, 1272, 1275, 1276, 1284, 1285, 1353, 1356, 1357, 1365 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

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

MAPLE

f:= proc(L, d) option remember; local i;

  if d::even then seq([op(L), i], i=L[-1]+1..2)

  else seq([op(L), i], i=0..L[-1]-1)

  fi

end proc:

S[1]:= {[0], [1], [2]}:

for d from 2 to 10 do S[d]:= map(f, S[d-1], d) od:

A:= {}:

for d from 1 to 10 do

  A:= A union map(proc(L) local i; add(L[i]*3^(i-1), i=1..nops(L)) end proc, select(L -> L[-1]>0, S[d]))

od:

sort(convert(A, list)); # Robert Israel, Jan 05 2021

CROSSREFS

Sequence in context: A018379 A245479 A294524 * A265394 A125167 A137604

Adjacent sequences:  A032879 A032880 A032881 * A032883 A032884 A032885

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 09:09 EDT 2022. Contains 354112 sequences. (Running on oeis4.)