A057511 Permutation of natural numbers: rotations of all branches of the rooted plane trees encoded by A014486.

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, 30, 33, 37, 39, 42, 44, 53, 51, 47, 56, 60, 24, 29, 38, 43, 52, 26, 40, 31, 45, 48, 34, 54, 57, 61, 27, 41, 32, 46, 55, 35, 49, 58, 62, 36, 50, 59, 63, 64, 65, 67, 70, 72, 75, 79, 81

Offset: 0

Author

Antti Karttunen, Sep 03 2000

Keywords

• nonn

Links

• Index entries for sequences that are permutations of the natural numbers

Crossrefs

Inverse permutation: A057512. Cycle counts: A057513. Number of fixed objects: A057546. Max. cycle lengths are given by Landau's function A000793.

Programs

Maple

# See A057509 for rotateL, A057501 for other procedures.
map(CatalanRankGlobal,map(DeepRotateL, A014486));
DeepRotateL := n -> pars2binexp(deeprotateL(binexp2pars(n)));
deeprotateL := proc(a) if 0 = nops(a) or list <> whattype(a) then (a) else rotateL(map(deeprotateL,a)); fi; end;