OFFSET
0,3
MAPLE
sub1 := n -> (n - 1); map(sub1, positions(0, [seq(PermRank3R(PermRevLexUnrank(n))-n, n=0..1024)])); or map(sub1, positions(0, [seq(PermRevLexRank(PermUnrank3R(n))-n, n=0..1024)]));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 02 2001
STATUS
approved