登录
OEIS基金会由OEIS的用户捐款和西蒙斯基金会的资助。

 

标志


提示
问候整数序列的在线百科全书!)
A065 181 由有限排列所产生的非负整数的置换A055089A受FoATA变换的逆。A06182.

%i

%S0、1,2、5、3、4、6、7、14、23、17、20、8、11、12、22、13、21、9、10、16、18、15、19、24、25

%T26、29、27、28、54、55、86119、951 10、62、71、78116、79113、65、68、92102、89.

%u 103、30、31、38、47、41、44、48、49、84118、94108、50、53、80117、83109、51、52

当A055089A所列出的有限置换受FoATA变换的逆时产生的非负整数的%N置换。A065 182的倒数。

这里,我们使用FoATA变换的左右极大变量的倒数,它通过首先旋转每个周期最大的元素来工作,然后根据每个的第一个(最大)元素将循环排序为升序。

%D I.M.格塞尔和R. P. Stanley,代数枚举,《组合数学手册》第21卷,第2卷,由R.L.格雷厄姆等人编辑,麻省理工学院出版社,弥撒,1995页,第1045页。

%H Joe Buhler和R. L. Graham,< HRFF=“http://www. cECM.SFU.Cal/Orgists/Posis/BuHels/index .html”>下拉和下降< < /A>,阿梅尔。数学月,101,(6)1994, 507 - 519。

%H<HREF=“/索引/每一个整数”>序列为自然数< /a>排列的索引条目

%P[SEQ(PrimReVixRead(FoATaVIN(PrimRexLunRead(j))),j=0…119)];

%P与(组);FoATAvI:= P->MAP(OP,排序([OP(map(RodoCyrGraseTest],转换(p,'DjjCyc))),OP(FixedCycles(P))],SotByBube);

%p SoTrByOrth:=(a,b)->‘If’((a〔1〕b〔1〕),真,假);

%P FixOnmList:=PROC(a)局部i,m;m=0;对于i从1到nops(a),如果(0=m)则m:= i;否则,如果(a [i]>a[m])则m:= i;Fi;Fi;Od;返回(m);结束;

%p RodoCyelGraseFix:= Pro(c)局部x;x:= FindLargest(c);如果(x<=1)则返回(c);否则返回([OP(c[x.nops](c)]),OP(C〔1…(x-1))〕;Fi;结束;

%P固定循环:= PROC(p)局部A,I;A:=[];对于i从1到nopp(p),如果(p[i]=i),则a:= [OP(a),[i]];Fi;Od;返回(a);结束;

%Y A065 161-A06163给出循环计数和最大长度。参见A065 183、A065 184和A055089A和A056019。

%K-NON

%0,3

10月19日2001日

查找γ欢迎γ维基γ注册γ音乐γ情节2γ演示γ指数γ浏览γ更多γ网络摄像机
贡献新的SEQ。或评论γ格式γ样式表γ变换γ超级导引头γ最近
OEIS社区通过保持OEIS基金会

许可协议、使用条款、隐私政策。.

最后修改了2月17日14:25 EST 2020。包含331996个序列。(在OEIS4上运行)