|
%I #6 Jul 30 2017 22:50:14
%S 0,1,2,3,6,7,8,9,16,17,24,25,26,27,30,31,32,33,40,41,60,61,62,63,120,
%T 121,122,123,126,127,128,129,136,137,144,145,146,147,150,151,152,153,
%U 160,161,180,181,182,183,288,289,290,291,294,295,296,297,304,305,316
%N Positions of the permutations which have the same rank in A055089 and A060117, i.e., the fixed points of permutations A060119 and A060126.
%p 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)]));
%Y Cf. A060133. Includes A059590 as a subset and A064637 gives the terms that are not found therein.
%K nonn
%O 0,3
%A _Antti Karttunen_, Mar 02 2001
|
