A060134 Positions of permutations produced by the transposition sequence A060135 in A055089.

0, 1, 4, 5, 3, 2, 12, 13, 16, 22, 19, 18, 20, 21, 23, 17, 15, 14, 8, 9, 11, 10, 7, 6

Offset: 0

Author

Antti Karttunen, Mar 02 2001

Keywords

• nonn

Crossrefs

Cf. A057113.

Programs

Maple

apply_transpositions(A060135); apply_transpositions := proc(a) local k,b,t,p; p := []; k := nops(factorial_base(nops(a)))+1; b := [PermRevLexRank(convert(p,'permlist',k))]; for t in a do p := permul(p,[[t,t+1]]); b := [op(b),PermRevLexRank(convert(p,'permlist',k))]; od; RETURN(b); end;