|
| |
| |
|
|
|
0, 1, 2, 2, 2, 3, 3, 4, 3, 3, 4, 4, 4, 3, 4, 4, 5, 5, 5, 5, 4, 4, 5, 4, 5, 6, 4, 4, 6, 5, 6, 5, 5, 5, 5, 5, 5, 5, 5, 5, 4, 5, 6, 7, 6, 6, 6, 6, 6, 5, 6, 5, 6, 6, 6, 6, 5, 6, 7, 6, 6, 6, 6, 6, 6, 6, 5, 6, 5, 7, 7, 6, 6, 7, 7, 6, 7, 6, 6, 6, 5, 5, 7, 6, 6, 6, 7, 7, 7, 6, 6, 6, 7, 7, 6, 7, 7, 7, 6, 7, 7
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,3
|
|
|
评论
|
奇数分母1,3,5,7…的最新出现，。。。，29:0,1,3,3,4,5,6,7,8,9,10,11,12,13,14,15（第三项中的错误反映了2/5和3/5直到第三次迭代才出现的事实；而对于n>2，显示分母为2n+1的最后一个分数似乎是1/（2n+1），该分数正好在n次迭代后出现。）詹姆斯·普罗普
|
|
|
参考文献
|
基于Richard C.Schroeppel和James Propp于2010年12月15日发布的数学乐趣邮件列表。
|
|
|
链接
|
|
|
|
数学
|
Denom[L_，k_]：=
模[{M，i}，M={}；
对于[i=1，i<=长度[L]，i++，
如果[分母[L[i]]==k，M=Append[M，L[i]]]]；返回[M]]
最早[k_]：=
模[{i}，对于[i=1，长度[Denom[WF[i]，k]]==0，i++]；返回[i]]
最新[k_]：=
模[{i}，对于[i=1，长度[Denom[WF[i]，k]]<EulerPhi[k]，i++]；
返回[i]]
表[最早的[2 n+1]，{n，1，100}]
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
