A032882 Numbers whose base-3 representation Sum_{i=0..m} d(i)*3^i has d(0) < d(1) > d(2) < ...

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

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