A057512 Permutation of natural numbers: rotations of all branches of the rooted plane trees encoded by A014486. (to opposite direction of A057511).

0, 1, 2, 3, 4, 6, 5, 7, 8, 9, 14, 10, 16, 19, 11, 15, 12, 17, 20, 13, 18, 21, 22, 23, 37, 24, 42, 51, 25, 38, 26, 44, 53, 27, 47, 56, 60, 28, 39, 29, 43, 52, 30, 40, 31, 45, 54, 34, 46, 57, 61, 33, 41, 32, 48, 55, 35, 49, 58, 62, 36, 50, 59, 63, 64, 65, 107, 66, 121, 149, 67

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: A057511. Cycle counts: A057513.

Programs

Maple

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