|
| |
|
|
A057113
|
|
Positions of permutations produced by the transposition sequence A057112 in A055089.
|
|
3
| |
|
|
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; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
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
| PermRevLexRank given in A056019.
Sequence in context: A124118 A016716 A004485 * A060134 A200351 A138753
Adjacent sequences: A057110 A057111 A057112 * A057114 A057115 A057116
|
|
|
KEYWORD
| nonn,fini
|
|
|
AUTHOR
| Antti Karttunen Aug 09 2000
|
| |
|
|
