登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A058988美元 对于有理数p/q,设f(p/q)=p*q除以p+q的除数;a(n)是通过迭代f获得的,从n/1开始,直到达到整数,或者如果没有达到整数,则a(n)=0。 4
1, 1, 1, 2, 30, 3, 14, 12, 18, 5, 33, 6, 26, 21, 3, 8, 51, 9, 38, 5, 28, 11, 92, 8, 50, 0, 9, 14, 116, 15, 93, 8, 66, 17, 105, 18, 74, 0, 156, 20, 492, 21, 86, 22, 60, 23, 0, 16, 147, 0, 17, 26, 212, 27, 330, 14, 114, 29, 354, 30, 61, 186, 9, 16, 260, 33, 201, 17, 138, 35, 426 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,4
链接
莱因哈德·祖姆凯勒(Reinhard Zumkeller),n=1..10000时的n,a(n)表
P.Schogt,野生数字问题:数学还是虚构?,arXiv预印本arXiv:1211.6583[math.HO],2012.-发件人N.J.A.斯隆2013年1月3日
黄体脂酮素
(哈斯克尔)
导入数据。比率(%),分子,分母)
a058988 n=分子$fst$
直到(==1)。分母。fst)f$f(来自积分n,[]),其中
f(x,ys)=如果y`elem`ys,则(0,[])else(y,y:ys),其中
y=分子x*分母x%a000005(分子x+分母x)
--莱因哈德·祖姆凯勒2014年8月29日
(PARI)f2(p,q)=p*q/numdiv(p+q);
f1(r)=f2(分子(r),分母(r));
循环(列表)={my(v=Vecrev(列表));对于(i=2,#v,如果(v[i]==v[1],返回(1)););}
a(n)={my(ok=0,m=f2(n,1),list=list());while(分母(m)!=1,m=f1(m);listput(list,m);if(loop(list),return(0)););return\\米歇尔·马库斯2022年2月9日
交叉参考
参见。A000005号.
关键字
非n,容易的
作者
N.J.A.斯隆2001年1月17日
扩展
更多术语来自野本直弘2001年7月20日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:2024年4月24日13:41 EDT。包含371957个序列。(在oeis4上运行。)