|
|
A065659
|
|
The table of permutations of N, each row induced by the rotation (to the left) of the n-th node in the infinite binary "decimal" fraction tree.
|
|
8
|
|
|
4, 16, 1, 22, 136, 1, 64, 3, 2, 1, 8, 64, 25, 2, 1, 160, 19, 4, 3, 76, 1, 1, 6, 5, 4, 3, 2, 1, 256, 7, 97, 5, 4, 3328, 2, 1, 32, 256, 13, 6, 167772160, 4, 3, 2, 1, 67, 1054, 8, 7, 6, 5, 4, 3, 2, 1, 34, 4, 9, 130, 7, 97, 5, 4, 3, 1249, 1, 1279, 40, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 10, 12
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MAPLE
|
[seq(RotateBinFracLeftTable(j), j=0..119)]; RotateBinFracLeftTable := n -> RotateBinFracNodeLeft(1+(n-((trinv(n)*(trinv(n)-1))/2)), (((trinv(n)-1)*(((1/2)*trinv(n))+1))-n)+1);
RotateBinFracNodeLeft := (t, n) -> frac2position_in_0_1_SB_tree(RotateBinFracNodeLeft_x(t, SternBrocot0_1frac(n)));
RotateBinFracNodeLeft_x := proc(t, x) local num, den; den := 2^(1+floor_log_2(t)); num := (2*(t-(den/2)))+1; if((x <= (num-1)/den) or (x >= (num+1)/den)) then RETURN(x); fi; if(x >= ((2*num)+1)/(2*den)) then RETURN(((num-1)/den) + (2*(x - (num/den)))); fi; if(x > (num/den)) then RETURN(x - (1/(2*den))); fi; RETURN(((num-1)/den) + ((x-((num-1)/den))/2)); end;
SternBrocot0_1frac := proc(n) local m; m := n + 2^floor_log_2(n); SternBrocotTreeNum(m)/SternBrocotTreeDen(m); end;
frac2position_in_0_1_SB_tree := r -> RETURN(ReflectBinTreePermutation(cfrac2binexp(convert(1/r, confrac))));
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|