A058972-OEIS公司

A058972号

对于有理数p/q，设f（p/q）=p+q的等分除数之和除以p+q除数的个数；序列给出数字k，这样，从k/1开始迭代f，最终得到一个整数。

3, 9, 15, 24, 25, 29, 33, 35, 50, 51, 55, 57, 59, 63, 73, 79, 80, 81, 85, 87, 89, 90, 95, 99, 105, 119, 120, 121, 128, 131, 139, 143, 145, 169, 177, 179, 181, 183, 193, 195, 201, 203, 204, 211, 215, 217, 218, 219, 221, 225, 227, 233, 247, 248, 255, 273, 275, 288

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,1

链接

莱因哈德·祖姆凯勒（Reinhard Zumkeller），n=1..10000时的n，a（n）表

P.Schogt，野生数字问题：数学还是虚构？，arXiv预印本arXiv:1211.6583[math.HO]，2012.-发件人N.J.A.斯隆2013年1月3日

例子

f（9/1）=8/4=2，一个整数，所以9在序列中；

f（10/1）=1/2和f（1/2）=1/2，因此10不在序列中。

数学

f[r_]：=如果[init==False和IntegerQ[r]，r，init=False；p=分子[r]；q=分母[r]；d=大多数[除数[p+q]]；总计[d]/（长度[d]+1）]；ok[n_]：=整数Q[init=True；固定点[f，n/1]]；ok[1]=错误；A058972号=选择[范围[300]，确定](*Jean-François Alcover公司2011年12月21日*）

黄体脂酮素

（哈斯克尔）

导入数据。比率（%），分子，分母）

a058972 n=a058972_列表！！（n-1）

a058972_list=映射分子$filter（（f[]））[1..]其中

f ys q=分母y==1||不是（y`elem`ys）&&f（y:ys）y

其中y=a001065 q“%a000005 q”

q’=分子q+分母q

--莱因哈德·祖姆凯勒2013年6月15日

（PARI）f2（p，q）=（σ（p+q）-p-q）/numdiv（p+q）；

f1（r）=f2（分子（r），分母（r））；

循环（列表）={my（v=Vecrev（列表））；对于（i=2，#v，如果（v[i]==v[1]，返回（1））；）；}

ff（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

isok（m）=ff（m）>0\\米歇尔·马库斯2022年2月9日

交叉参考

囊性纤维变性。A058971美元,A058973号.

囊性纤维变性。A001065号,A000005号.

上下文中的序列：A246298号 A139419号 A323031型*A026222号 A192720型 A357167型

相邻序列：A058969号 A058970号 A058971美元*A058973号 A058974号 A058975号

关键词

非n,容易的,美好的

作者

N.J.A.斯隆2001年1月14日

扩展

更正和扩展人马修·康罗伊2001年4月18日

状态

经核准的