A057690-OEIS公司

A057690号

“Px+1”映射下P轨迹中的循环长度，其中P=第n素数，或-1（如果轨迹不循环）。

3, 3, 4, 4, 3, 4, 4, 5, 4, 6, 3, 4, 4, 6, 5, 5, 3, 4, 6, 3, 6, 5, 5, 4, 4, 5, 6, 4, 4, 8, 5, 4, 5, 5, 5, 3, 4, 6, 4, 6, 4, 8, 3, 5, 6, 4, 7, 5, 4, 5, 7, 4, 6, 4, 6, 6, 6, 3, 12, 4, 5, 5, 6, 3, 4, 4, 4, 5, 5, 4, 7, 6, 4, 5, 9, 5, 3, 4, 4, 6, 3, 8, 4, 6, 5, 6, 3, 5, 6, 6, 8, 5, 5, 6, 7, 5, 5, 4, 3, 4, 5, 5, 5, 5, 4 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`2,1`
	评论	`请参见A057684号定义。` `注意，不是所有以p开始的迭代循环都包含数字1；对于素数281，a（60）是第一个例子。其迭代次数为：28178962394810373853398426699142233474141677352114640273201 1031 289712 144856 724283621418107953 267794133897，最后12个术语循环。另一个例子是2543，即372素数-T.D.诺伊2008年4月2日`
	链接	`米歇尔·马库斯，n=2..10000时的n，a（n）表`
	配方奶粉	`a（n）=A023514号（n）如果循环包含数字1，则为+1-乔恩·麦加2021年1月12日`
	例子	`对于n=4，P=7：7的轨迹是7，50，25，5，1，8，4，2，1，8.，4，2.，1.，8.，4.，2.，1。。。，其具有最大项50、周期长度4并且在其进入周期之前有4个项。`
	数学	`Px1[p_，n_]：=捕捉[For[i=1，i<PrimePi[p]，i++，If[Divisible[n，Prime[i]]，Throw[n/Prime[i]]]；pn+1]；` `模块[{nmax=100，m}，表[Length[m=NestWhileList[Px1[Prime[n]，#]&，Prime[n]，UnsameQ，All]]-第一个位置[m，最后一个[m]][1]，{n，2，nmax}]](保罗·沙萨2023年12月11日*）`
	黄体脂酮素	`（PARI）f（m，p）={对于素数（q=2，预素数（p-1）），如果（！（m%q），返回（m/q））；）；mp+1；}` `a（n）={my（p=prime（n），x=p，list=list（））；listput（list，x）；while（1，x=f（x，p）；对于（i=1，#list，if（x==list[i]，return（#list-i+1））；）\\米歇尔·马库斯2021年1月12日` `（Python）` `从sympy导入prime，primerange` `定义a（n）：` `P=素数（n）` `x、 plst，traj，seen=P，list（素数范围（2，P）），[]，set（）` `而x不可见：` `traj.追加（x）` `参见。添加（x）` `x=下一个（如果x%p==0，则x//p代表plst中的p），px+1）` `返回长度（traj）-traj索引（x）` `打印（[a（n）代表范围（2107）中的n）]#迈克尔·布拉尼基2023年12月11日`
	交叉参考	`囊性纤维变性。A057446号,A057216号,A057522美元,A057534号,A057614号。另请参阅A033478号,A057688号,A057684号,A057685号,A057686号,A057687号,A057689号,A057691号.` `囊性纤维变性。A023514号.` `上下文中的序列：A329310型 A061023号 A355954型A318706型 A298199型 A282623型` `相邻序列：A057687号 A057688美元 A057689号A057691号 A057692号 A057693号`
	关键词	`非n,美好的,容易的`
	作者	`N.J.A.斯隆2000年10月20日`
	扩展	`Larry Reeves（larryr（AT）acm.org）提供的更多条款，2000年11月8日` `更正人T.D.诺伊2008年4月2日`
	状态	`经核准的`