A057113 Positions of permutations produced by the transposition sequence A057112 in A055089.

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, 73, 72, 74, 75, 85, 84, 86, 80, 78, 79, 82, 92, 90, 91, 94, 88, 89, 95, 93, 83, 81, 87, 63, 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

Offset: 0

Author

Antti Karttunen, Aug 09 2000

Keywords

• nonn
• fini
• full

Links

• Sean A. Irvine, Table of n, a(n) for n = 0..119
• Sean A. Irvine, Complete Maple program with all necessary functions

Crossrefs

PermRevLexRank given in A056019.

Programs

Maple

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;

Formula

perm_ranks_seq := atp_perm_ranks(120);