Annual Appeal: Please make a donation to keep the OEIS running. In 2018 we replaced the server with a faster one, added 20000 new sequences, and reached 7000 citations (often saying "discovered thanks to the OEIS").
A038567_A038566_to_SternBrocot_permutation := proc(u) local a, n, i; a := []; for n from 1 to u do for i from 1 to n do if (1 = igcd(n, i)) then a := [op(a), cfrac2binexp(convert((n/i), confrac))+1]; fi; od; od; RETURN(a); end; # cfrac2binexp given in A054424.