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

%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