|
|
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
|
|
|
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:
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|