This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A060134 #3 May 01 2014 02:46:43 %S A060134 0,1,4,5,3,2,12,13,16,22,19,18,20,21,23,17,15,14,8,9,11,10,7,6 %N A060134 Positions of permutations produced by the transposition sequence A060135 in A055089. %p A060134 apply_transpositions(A060135); apply_transpositions := proc(a) local k,b,t,p; p := []; k := nops(factorial_base(nops(a)))+1; b := [PermRevLexRank(convert(p,'permlist',k))]; for t in a do p := permul(p,[[t,t+1]]); b := [op(b),PermRevLexRank(convert(p,'permlist',k))]; od; RETURN(b); end; %Y A060134 Cf. A057113. %K A060134 nonn %O A060134 0,3 %A A060134 _Antti Karttunen_, Mar 02 2001