%I #6 May 20 2022 21:35:12
%S 0,1,4,5,3,2,12,13,16,22,19,18,20,10,7,6,8,14,15,9,11,21,23,17,77,76,
%T 73,72,74,75,85,84,86,80,78,79,82,92,90,91,94,88,89,95,93,83,81,87,63,
%U 62,60,61,64,65,71,70,67,53,51,50,48,54,56,57,59,69,68,58,55,49,52,66,108,109,112,113,111,110,104,105,107,117,119,118,115,101,99,98,96,102
%N Positions of permutations produced by the transposition sequence A057112 in A055089.
%H Sean A. Irvine, <a href="/A057113/b057113.txt">Table of n, a(n) for n = 0..119</a>
%H Sean A. Irvine, <a href="/A057113/a057113.txt">Complete Maple program with all necessary functions</a>
%F perm_ranks_seq := atp_perm_ranks(120);
%p atp_perm_ranks := proc(upto_n) local t,a,p,i,k; p := convert([1],'disjcyc'); k := nops(factorial_base(upto_n))+1; a := []; for i from 1 to upto_n do a := [op(a),PermRevLexRank(convert(p,'permlist',k))]; t := adj_tp_seq(i); p := mulperms([[t,t+1]],p); od; RETURN(a); end;
%Y PermRevLexRank given in A056019.
%K nonn,fini,full
%O 0,3
%A _Antti Karttunen_, Aug 09 2000