%I A064039
%S A064039 0,1,10,11,21,20,100,101,110,111,121,120,210,211,200,201,220,221,311,
%T A064039 310,321,320,301,300,1000,1001,1010,1011,1021,1020,1100,1101,1110,1111,
%U A064039 1121,1120,1210,1211,1200,1201,1220,1221,1311,1310,1321,1320,1301,1300
%N A064039 Reversed inversion vectors for the permutations of A060117, presented 
               as pseudo-decimal numbers.
%C A064039 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.
%p A064039 [seq(SiteSwap2ToDec(Perm2InversionVector(PermUnrank3R(j))),j=0..119)];
%p A064039 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;
%Y A064039 SiteSwap2ToDec procedure given in A060496 and PermUnrank3R in A060117.
%Y A064039 Sequence in context: A102626 A014418 A089591 this_sequence A022100 A041475 
               A041204
%Y A064039 Adjacent sequences: A064036 A064037 A064038 this_sequence A064040 A064041 
               A064042
%K A064039 nonn,base
%O A064039 1,3
%A A064039 Antti Karttunen Aug 23 2001