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,3

Links

Sean A. Irvine, Table of n, a(n) for n = 0..119

Sean A. Irvine, Complete Maple program with all necessary functions

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 A370634

Adjacent sequences: A057110 A057111 A057112 * A057114 A057115 A057116

Keyword

nonn,fini,full

Author

Antti Karttunen, Aug 09 2000

Status

approved