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节=反向@MapAt[#-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日

状态

经核准的