A078373-OEIS公司

A078373号

n设置{n，f（n），f（f（n，n）），…，1}中素数的记录，其中f是f（x）=x/2定义的Collatz函数，如果x是偶数；f（x）=3x+1，如果x是奇数。

2, 3, 7, 19, 27, 97, 171, 231, 487, 763, 1071, 4011, 6171, 10971, 17647, 47059, 99151, 117511, 202471, 260847, 481959, 963919, 1564063, 1805311, 1993215, 6991599, 8400511, 11200681, 36791535, 46564287, 103359483, 206718967, 359502063

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

抵消

1,1

链接

Jud McCranie，n=1..40时的n，a（n）表

J.C.Lagarias，3x+1问题及其推广，美国。数学。《月刊》，92（1985），3-23。

卡洛斯·里维拉，拼图634。Collatz轨迹中的素数

卡洛斯·里维拉，谜题922。谜题634的后续操作

例子

序列n，f（n），f（f（n。。。，对于n=7，1是：7，22，11，34，17，52，26，13，40，20，10，5，16，8，4，2，1，它有六个质数项，比任何n<7的质数项都多。因此，7设置一个记录，因此属于序列。

数学

f[n]：=n/2/；模态[n，2]==0 f[n]：=3 n+1/；Mod[n，2]==1g[n_]：=模[{i，p}，i=n；p=0；当[i>1时，如果[PrimeQ[i]，p=p+1]；i=f[i]]；p] ；高=0；a={}；对于[j=1，j<=10^5，j++，k=g[j]；如果[k>high，high=k；a=Append[a，j]]]；一

（*第二个程序：*）

使用[{s=Array[Count[NestWhileList[If[EvenQ[#]，#/2，3#+1]&，#，#>1&]，_？PrimeQ]&，10^5]}，Map[FirstPosition[s，#][[1]]&，Union@FoldList[Max，s]]](*迈克尔·德弗利格2018年4月21日*）

黄体脂酮素

（PARI）A078350型（n） =my（s=isprime（n））；当（n>1时，如果（n%2，n=（3*n+1）/2，n/=2）；s+=i素数（n））；秒

r=0；对于（n=2，1e9，t=A078350型（n）；如果（t>r，r=t；打印1（n“，”））\\查尔斯·格里特豪斯四世2015年4月28日

交叉参考

A362958型给出了相应的素数。

囊性纤维变性。A055509型,A181921号.

上下文中的序列：A138111型 A218100型 A349622飞机*A038878号 A040112号 A246373型

相邻序列：A078370型 A078371号 A078372号*A078374号 A078375型 A078376号

关键词

非n

作者

约瑟夫·佩伊2002年12月24日

扩展

a（18）-a（30）来自多诺万·约翰逊2010年7月2日

a（31）-a（33）来自卡洛斯·里维拉2012年4月15日

状态

经核准的