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,3

Links

Table of n, a(n) for n=0..23.

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;

Crossrefs

Cf. A057113.

Sequence in context: A016716 A004485 A057113 * A200351 A138753 A179410

Adjacent sequences: A060131 A060132 A060133 * A060135 A060136 A060137

Keyword

nonn

Author

Antti Karttunen, Mar 02 2001

Status

approved