A229120-OEIS公司

A229120型

1、3、2、7、6、5、15、14、4、13、10、31、30、12、29、9、26、21、63、62、28、61、8、25、58、11、18、53、42、127、126、60、125、24、57、122、17、27、50、117、22、37、106、85、255、254、124、253、56、121、250、16、49、59、114、245、19、34、54、101、234、20、45、74、213、170、511、510、252、509、120、249、506、48 (列表；图表；参考；听；历史；文本；内部格式)

	抵消	`1,2`
	评论	`定义整数上的无限置换，包含无限长的循环，但具有逆循环(A229119号)可以生成。` `产生无限循环的最小整数是n=4:{4，7，15，29，42，37，17，26，11，10，13，30，127，77，242，266，173，205，2034，6474，…}。`
	链接	`n=1..74时的n、a（n）表。` `与排列相关的序列的索引项`
	例子	`请参见A229119号.`
	数学	<<组合数学`；unrankpartition[n_Integer，k_Integer]：=块[{ove，res，qq，zz，mem}，ove=PartitionsP[n]-k；res={}；当[n-Tr[res]>0时，qq=0；zz=0；而[（mem=NumberOfPartitions[n-Tr[res]，qq+1]）<=ove，zz=mem；qq++]；附加到[res，qq+1]；ove=ove-zz]；资源]/；k<=分区P[n]&&k>0；unrankpartition[n_Integer，All]：=块[{k=1，z}，While[（z=Tr[PartitionsP[范围@k]])<n，k++]；unrankpartition[k，PartitionsP[k]+n-z]]；par2int[par_？PartitionQ]：=块[{t3，t4，t5}，t3=差异[Prepend[Reverse[par]，0]]；第4节=反向@地图[#-1&，1+t3，1]；t5=扁平[表[Mod[k，2]+0*范围[t4[k]]，{k，长度[t4]}]；FromDigits[t5，2]；b=表格[par2int@unrankpartition[n，全部]，{n，138}]
	交叉参考	`囊性纤维变性。A226062型.` `上下文中的序列：A126316号 A101224号 A348366飞机A255067号 A139285号 A080398号` `相邻序列：A229117号 A229118号 A229119号A229121号 A229122号 A229123号`
	关键词	`非n`
	作者	`沃特·梅森2013年9月14日`
	状态	`经核准的`