OFFSET
0,3
MAPLE
map(sub1, positions(0, [seq(PermRevLexRank(PermUnrank3L(n))-n, n=0..6666)])); or map(sub1, positions(0, [seq(PermRank3L(PermRevLexUnrank(n))-n, n=0..6666)]));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 02 2001
STATUS
approved