A064039 Reversed inversion vectors for the permutations of A060117, presented as pseudo-decimal numbers.

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.

Links

Table of n, a(n) for n=1..48.

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

Adjacent sequences: A064036 A064037 A064038 * A064040 A064041 A064042

Keyword

nonn,base

Author

Antti Karttunen, Aug 23 2001

Status

approved