0,3

Table of n, a(n) for n=0..70.

Index entries for sequences that are permutations of the natural numbers

# 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;

Inverse permutation: A057511. Cycle counts: A057513.

Sequence in context: A127285 A130945 A073285 * A057508 A057164 A085175

Adjacent sequences: A057509 A057510 A057511 * A057513 A057514 A057515

nonn

Antti Karttunen, Sep 03 2000

approved