%I#7 2014年5月1日02:48:29
%S 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,
%U 57,61,27,41,32,46,55,35,49,58,62,36,50,59,63,64,65,67,70,72,75,79,81
%N自然数置换:A014486编码的有根平面树的所有分支的旋转。
%H<a href=“/index/Per#IntegerPermutation”>自然数排列序列的索引项</a>
%p#旋转L参见A057509,其他程序参见A057501。
%p地图(CatalanRankGlobal,地图(DeepRotateL,A014486));
%p深度旋转L:=n->pars2binexp(深度旋转L(binexp2pars(n)));
%p deeprotateL:=proc(a)如果0=nops(a)或list<>whattype(a),则(a)else rotateL-(map(deeprostateL,a));fi;结束;
%Y逆置换:A057512。循环计数:A057513。固定对象数:A057546。最大循环长度由Landau函数A000793给出。
%K nonn公司
%0、3
%2000年9月3日,安蒂·卡图内
|