OFFSET
0,4
LINKS
FORMULA
MAPLE
with(group); [seq(count_transpositions(convert(PermRevLexUnrank(j), 'disjcyc')), j=0..)];
count_transpositions := proc(l) local c, t; t := 0; for c in l do t := t + (nops(c)-1); od; RETURN(t); end;
# Procedure PermRevLexUnrank given in A055089.
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 18 2000
EXTENSIONS
Entry revised by Antti Karttunen, Dec 30 2017
STATUS
approved