（带下划线的文本是附加;删除线文本是删除.)
显示条目1-10|较旧的更改
|
| |
| |
| |
|
|
#20通过米歇尔·马库斯2024年3月9日星期六01:45:44 EST | |
| |
| |
|
|
#19通过乔格·阿恩特2024年3月9日星期六01:33:54 EST | |
| |
| |
|
|
#18个通过乔恩·舍恩菲尔德2024年3月8日星期五23:57:36 EST | |
| |
| |
|
|
#17通过乔恩·舍恩菲尔德2024年3月8日星期五23:57:34 EST |
|
| 评论
|
产生无限循环的最小整数是n=4: {: {4, 7, 15, 29, 42, 37, 17, 26, 11, 10, 13, 30, 127, 77, 242, 266, 173, 205, 2034, 6474, ..., ...}.
|
|
| 链接
|
<a href="https（https）://oeis公司.组织/维基="/指数/索引_到_组织环境信息系统:_章节_每">链接#烫发">索引 条目 到对于 排列序列 部分相关的 在里面到 组织环境信息系统排列</a>
|
|
| 状态
|
经核准的
编辑
|
| |
| |
|
|
#16通过T.D.诺伊2013年9月16日星期一13:22:31 EDT | |
| |
| |
|
|
#15通过T.D.诺伊2013年9月16日星期一13:22:27 EDT |
|
| 数学
|
<<<<组合数学`；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}]
|
|
| 状态
|
提议的
编辑
|
| |
| |
|
|
#14通过沃特·梅森2013年9月16日星期一13:09:53 EDT | |
| |
| |
|
|
#2013年通过沃特·梅森2013年9月16日星期一13:09:46 EDT | |
| |
| |
|
|
#12通过T.D.诺伊2013年9月16日星期一12:01:04 EDT | |
| |
|
|
讨论
|
| 9月16日周一
| 12点54分
| 沃特·梅森：@Tony：我指的是A226062，因为它使用相同的整数来划分例程；我不使用那里使用的“保加利亚纸牌”游戏。但是的，A226062似乎是正确的（afaik）。
|
| |
| |
|
|
#11通过T.D.诺伊2013年9月16日星期一11:59:49 EDT |
|
| 评论
|
产生无限循环的最小整数是n=4:{4,,7,,15,,29,,42,,37,,17,,26,,11,,10,,13,,30,,127,,77,,242,,266,,173,,205,,2034,,6474, ...
|
|
| 数学
|
<<组合数学`;`;取消等级划分[n个_整数,k个_整数] :=块[{爱,物件,qq（质量）,zz（嗡嗡声）,内存},爱=分区P[n个]-k个;物件={};While期间[n个-Tr公司[物件]>0,qq（质量）=0;zz（嗡嗡声）=0;While期间[(内存=分区数[n个-Tr公司[物件],qq（质量）+1]) <=爱,zz（嗡嗡声）=微机;qq（质量）++];附加到[物件,qq（质量）+1];爱=爱-zz（嗡嗡声）];物件] /;k个<=分区P[n个] &&k个>0;未分级[n个_整数,全部]:=块[{k个=1,z（z）},While期间[(z（z）=Tr公司[分区P[范围@k个]])<n个,k个++];取消等级划分[k个,分区P[k个]+n个-z（z）]];par2整数[标准_?分区Q]:=块[{t3（第三节）,第4节,第5节},t3=差异[前置[反向[标准],0]];第4节=反向@地图位置[#-1&,1+t3（第三节）,1];第5节=压扁[表[国防部[k个,2]+0*范围[第4节[[k个]]], {k个,长度[第4节]}]];From数字[第5节,2]];b条=表[par2整数@取消等级划分[n个,全部], {n个,138}]
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=内存；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型.
|
|
| 状态
|
提议的
编辑
|
| |
|
|
讨论
|
| 9月16日周一
| 12:01
| T.D.诺伊：Cf正确吗？
|
| |
| |
|
|
