登录
A229120型
置换逆A229119号.
2
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,…}。
例子
请参见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}]
关键词
非n
作者
沃特·梅森2013年9月14日
状态
经核准的