|
%I #3 May 01 2014 02:46:43
%S 0,1,4,5,3,2,12,13,16,22,19,18,20,21,23,17,15,14,8,9,11,10,7,6
%N Positions of permutations produced by the transposition sequence A060135 in A055089.
%p 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;
%Y Cf. A057113.
%K nonn
%O 0,3
%A _Antti Karttunen_, Mar 02 2001
|
