OFFSET
0,3
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
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 02 2001
STATUS
approved