搜索： 编号：a182972
|
| |
|
|
A182972号
|
| 正有理数<1的分子通过增加分子和分母之和，然后增加分子来排列。 |
|
+0
15
|
|
|
|
1, 1, 1, 2, 1, 1, 2, 3, 1, 3, 1, 2, 4, 1, 3, 1, 2, 3, 4, 5, 1, 5, 1, 2, 3, 4, 5, 6, 1, 3, 5, 1, 2, 4, 7, 1, 3, 5, 7, 1, 2, 3, 4, 5, 6, 7, 8, 1, 5, 7, 1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 3, 7, 9, 1, 2, 4, 5, 8, 10, 1, 3, 5, 7, 9, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 1, 5, 7, 11, 1, 2, 3, 4, 6, 7, 8, 9, 11, 12, 1, 3, 5, 7, 9, 11
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
1,4
|
|
|
评论
|
|
|
|
参考文献
|
S.Cook，问题511：枚举问题，《休闲数学杂志》，第9:2卷（1976-77），第137页。问题编辑的解决方案，JRM，卷10:2（1977-78），122-123。
R.K.Guy，《数论中未解决的问题》（UPINT），第D11节。
|
|
|
链接
|
保罗·姚，娱乐数学，24.3.1附录：第633页，（0,1）中有理数的两个枚举。
|
|
|
例子
|
通过增加分子和分母之和，以及增加分子以获得相等的和，列出正分数<1：
1/2
1/3
1/4 2/3
1/5
1/6 2/5 3/4
1/7 3/5
1/8 2/7 4/5
1/9 3/7
1/10 2/9 3/8 4/7 5/6
1/11 5/7
1/12 2/11 3/10 4/9 5/8 6/7
1/13 3/11 5/9
1/14 2/13 4/11 7/8
1/15 3/13 5/11 7/9
1/16 2/15 3/14 4/13 5/12 6/11 7/10 8/9
1/17 5/13 7/11
1/18 2/17 3/16 4/15 5/14 6/13 7/12 8/11 9/10
1/19 3/17 7/13 9/11
|
|
|
MAPLE公司
|
t1:=[]；
对于从2到40 do的n
t1:=[操作（t1），1/（n-1）]；
对于i从2到地板（（n-1）/2）do
如果gcd（i，n-i）=1，则t1:=[op（t1），i/（n-i）]；fi；日期：
日期：
t1；
|
|
|
数学
|
t1={}；对于[n=2，n<=40，n++，附录[t1，1/（n-1）]；对于[i=2，i=Floor[（n-1）/2]，i++，如果[GCD[i，n-i]==1，AppendTo[t1，i/（n-i）]]]；t1//分子//静止(*Jean-François Alcover公司2015年1月20日，翻译自枫叶*）
|
|
|
黄体脂酮素
|
（Pascal）程序a182972；
无功功率，无功功率
num，den，n：长度；
函数gcd（i，j:longint）：longint；
开始
重复
如果i>j，则i:=i mod j，否则j:=j mod i；
直到（i=0）或（j=0）；
如果i=0，则gcd:=j其他gcd:=i；
结束；
开始
数量：=1；den：=1；n： =0；
重复
重复
inc（数字）；dec（den）；
如果num>=den，则
开始
inc（den，num）；数量：=1；
结束；
直到gcd（num，den）＝1；
inc（n）；writeln（n，''，num）；
直到n=100000；
结束。
（哈斯克尔）
a182972 n=a182972_list！！（n-1）
a182972_list=映射fst$concatMap q[3..]其中
q x=[（num，den）|num<-[1..div x 2]，
设den=x-num，gcd-num-den=1]
（Python）
从itertools导入计数，islice
从数学导入gcd
如果gcd（i，n-i）==1，则返回（i代表计数（2）中的n，i代表范围（1,1+（n-1>>1））
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,容易的,压裂,美好的
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.009秒内完成
|
