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 A057511 #7 May 01 2014 02:48:29 %S A057511 0,1,2,3,4,6,5,7,8,9,11,14,16,19,10,15,12,17,20,13,18,21,22,23,25,28, %T A057511 30,33,37,39,42,44,53,51,47,56,60,24,29,38,43,52,26,40,31,45,48,34,54, %U A057511 57,61,27,41,32,46,55,35,49,58,62,36,50,59,63,64,65,67,70,72,75,79,81 %N A057511 Permutation of natural numbers: rotations of all branches of the rooted plane trees encoded by A014486. %H A057511 <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a> %p A057511 # See A057509 for rotateL, A057501 for other procedures. %p A057511 map(CatalanRankGlobal,map(DeepRotateL, A014486)); %p A057511 DeepRotateL := n -> pars2binexp(deeprotateL(binexp2pars(n))); %p A057511 deeprotateL := proc(a) if 0 = nops(a) or list <> whattype(a) then (a) else rotateL(map(deeprotateL,a)); fi; end; %Y A057511 Inverse permutation: A057512. Cycle counts: A057513. Number of fixed objects: A057546. Max. cycle lengths are given by Landau's function A000793. %K A057511 nonn %O A057511 0,3 %A A057511 _Antti Karttunen_, Sep 03 2000