|
| |
|
| A225851型 |
| 对于以质数p开始的Collatz（3x+1）迭代，a（n）是最小的p，因此轨迹包含n个连续的质数。 |
|
0
|
|
|
|
3, 3, 7, 7, 7, 19, 59, 59, 59, 59, 157, 13397, 2312267, 97760291, 1042776437
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
a（13）-a（15）由Farideh Firoozbakht发现。请参阅Carlos Rivera的网站-T.D.诺伊，2013年5月17日
|
|
|
链接
|
|
|
|
例子
|
a（11）=157，因为奇数的Collatz序列是157->59->89->67->101->19->29->11->17->13->5->1，有11个连续的素数。
|
|
|
MAPLE公司
|
nn:=300:T:=阵列（1..nn）：
对于从1到15的n，do:jj:=0:
对于m，从2到10^5，而（jj=0）do:p:=ithprime（m）：
对于i从1到nn，当（jj=0）do：
T[i]：=0:od:a:=1:T[1]：=p:x:=p:
当（x>1）从1到nn时，执行以下操作：
如果irem（x，2）=0，则
x：=x/2：
其他的
a： =a+1：温度[a]：=x：
x:=3*x+1:fi:
日期：
jj:=0:aa:=a:itr:=0:
对于从2到n+1的j，执行以下操作：
如果type（T[j]，prime）=true，则
itr:=itr+1：
其他fi：
日期：
如果itr=n，则
jj:=1:printf（“%d%d\n”，n，p）：
其他的
图1：
日期：
日期：
|
|
|
数学
|
RemoveEven[n_]：=n/2^整数指数[n，2]；Collatz2[n_]：=NestWhileList[RemoveEven[3#+1]&，n，#>1&]；PrimeCnt[lst_]：=模块[{i=1}，而[PrimeQ[lst[[i]]]，i++]；i-1]；nn=12；t=表[0，{nn}]；发现=0；n=2；而[发现<nn，n=NextPrime[n]；ps=PrimeCnt[Collatz2[n]]；如果[ps>nn，ps=nn]；当[ps>0&&t[[ps]]==0时，t[[p]]=n；找到++；ps-]]；吨(*T.D.诺伊，2013年5月17日*）
|
|
|
交叉参考
|
|
|
|
关键词
|
非n，坚硬的
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
