A183133-OEIS公司

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

A183133号

使用Kilminster的Fractran程序计算PRIMEGAME中第n个素数的步骤数，该程序只包含九个分数。

4

10, 46, 196, 500, 1428, 2488, 4588, 6840, 10546, 17118, 23064, 33332, 44472, 55848, 70330, 90836, 115136, 137912, 168802, 201000, 233542, 276680, 320332, 373198, 439722, 503810, 568334, 640092, 712314, 792186, 917090, 1023878, 1146632, 1263818, 1419298

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

抵消

1,1

参考文献

D.奥利瓦斯托罗，《古代谜题》。班塔姆出版社，纽约，1993年，第21页。

链接

阿洛伊斯·海因茨，n=1..100时的n，a（n）表

J.H.Conway，FRACTRAN：一种简单的通用算术编程语言，收录于T.M.Cover和Gopinath编辑的《通信和计算中的开放问题》，Springer，NY 1987年，第4-26页。

Esolang维基“分形".

柴姆·古德曼·施特劳斯，无法决定？未定！，AMS通知，第57卷，第3期，第343-356页，2010年3月。

R.K.盖伊，康威的主要生产机器，数学。Mag.56（1983），第1期，第26-33页。

埃里克·魏斯坦的数学世界，法国天然气公司.

维基百科，法国天然气公司.

MAPLE公司

a： =proc（n）选项记住；

局部l，p，m，k；

l： =【3/11、847/45、143/6、7/3、10/91、3/7、36/325、1/2、36/5】：

如果n=1，则b（0）：=10；a（0）：=0

其他a（n-1）

fi；

p： =b（n-1）；

对于m do

对于k，而不是类型（p*l[k]，integer）

做od；p： =p*l[k]；

如果10^ilog10（p）=p，则打破fi

日期：

b（n）：=p；

m+a（n-1）

结束时间：

seq（a（n），n=1..20）；

数学

a[n_]：=a[n]=模[{l，p，m，k}，

l={3/11、847/45、143/6、7/3、10/91、3/7、36/325、1/2、36/5}；

如果[n==1，b[0]=10；a[0]=0，a[n-1]]；p=b[n-1]；

对于[m=1，真，m++，

对于[k=1，！整数Q[p*l[[k]]]，k++]；

p=p*l[[k]]；如果[10^(长度@整数位数[p] -1）==p，中断[]]]；

b[n]=p；m+a[n-1]]；

数组[a，20](*Jean-François Alcover公司2021年4月2日之后阿洛伊斯·海因茨*)

交叉参考

囊性纤维变性。A183132号,A008578号,A007542号,A007546号,A007547号.

上下文中的序列：A003197号 A096045型 A287090型*A115712号 A199313号 A003765号

相邻序列：A183130型 A183131号 A183132号*A183134号 A183135号 A183136号

关键词

容易的,非n

作者

阿洛伊斯·海因茨2010年12月26日

状态

经核准的