|
|
A057113
|
|
Positions of permutations produced by the transposition sequence A057112 in A055089.
|
|
4
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
perm_ranks_seq := atp_perm_ranks(120);
|
|
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;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,fini,full
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|