A065934 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give

A065934

Permutation of N induced by the order-preserving bijection QuQR1toQuQR2 on rationals.

1, 5, 13, 2, 23, 25, 3, 9, 20, 11, 95, 49, 6, 223, 57, 4, 39, 80, 10, 45, 92, 47, 383, 97, 12, 415, 208, 55, 3583, 225, 29, 17, 36, 19, 159, 320, 40, 83, 42, 22, 183, 368, 46, 189, 380, 191, 1535, 193, 24, 799, 400, 103, 6655, 3328, 52, 220, 445, 895, 57343, 897

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

COMMENTS

This permutation converts the domain between the mappings N2QuQR1 and N2QuQR2 given in A065936 and A065937, i.e. N2QuQR1(j) = N2QuQR2(a[j])

LINKS

Table of n, a(n) for n=1..60.

Index entries for sequences related to Stern's sequences

Index entries for sequences that are permutations of the natural numbers

MAPLE

[seq(QuQR1toQuQR2(j), j=1..128)];

QuQR1toQuQR2 := proc(n) local m; m := n + 2^floor_log_2(n); frac2position_in_whole_SB_tree(Q0_1toQ(SternBrocotTreeNum(m)/SternBrocotTreeDen(m))); end;

Q0_1toQ := proc(rr) local r, i; r := rr; i := 0; while(r >= 1/2) do r := 2*(r-(1/2)); i := i+1; od; RETURN(i + (2*r)); end;

CROSSREFS

Inverse permutation: A065935. For other needed Maple procedures, see A007305, A047679 and A054424. A065939[n] = a[A065938[n]].

Sequence in context: A025580 A073878 A164793 * A282063 A035412 A338985

Adjacent sequences: A065931 A065932 A065933 * A065935 A065936 A065937

KEYWORD

nonn

AUTHOR

Antti Karttunen, Dec 07 2001

STATUS

approved