OFFSET
0,1
COMMENTS
16 is included, as 16 = 220 in factorial base and by following the algorithm PermRevLexUnrankAMSD in A055089 we get the composition (2 3)(3 4) (1 2)(2 3) which, although consisting of different transpositions, is equal to the composition (4 2)(3 1) = 3412 produced by algorithm PermUnrank3R at A060117.
MAPLE
list_diff := proc(a, b) local c, e; c := []; for e in a do if(not member(e, b)) then c := [op(c), e]; fi; od; RETURN(c); end;
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 02 2001
STATUS
approved