login
A064039
Reversed inversion vectors for the permutations of A060117, presented as pseudo-decimal numbers.
3
0, 1, 10, 11, 21, 20, 100, 101, 110, 111, 121, 120, 210, 211, 200, 201, 220, 221, 311, 310, 321, 320, 301, 300, 1000, 1001, 1010, 1011, 1021, 1020, 1100, 1101, 1110, 1111, 1121, 1120, 1210, 1211, 1200, 1201, 1220, 1221, 1311, 1310, 1321, 1320, 1301, 1300
OFFSET
1,3
COMMENTS
If one uses the ordering of A055089 instead of A060117 (procedure PermRevLexUnrank instead of PermUnrank3R) one gets A007623 (Integers written in factorial base) which is a permutation of this sequence.
MAPLE
[seq(SiteSwap2ToDec(Perm2InversionVector(PermUnrank3R(j))), j=0..119)];
Perm2InversionVector := proc(p) local n, i, j, a, c; n := nops(p); a := []; for i from 2 to n do c := 0; for j from 1 to i-1 do if(p[j] > p[i] then c := c+1; fi; od; a := [op(a), c]; od; RETURN(a); end;
CROSSREFS
SiteSwap2ToDec procedure given in A060496 and PermUnrank3R in A060117.
Sequence in context: A014418 A317204 A089591 * A255536 A298849 A277588
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Aug 23 2001
STATUS
approved