A007547-OEIS公司

A007547号

在PRIMEGAME中计算第n个素数的步骤数（慢版本）。
（原名M5075）

19, 69, 281, 710, 2375, 3893, 8102, 11361, 19268, 36981, 45680, 75417, 101354, 118093, 152344, 215797, 293897, 327571, 429229, 508284, 556494, 701008, 809381, 990746, 1274952, 1435957, 1531854, 1712701, 1820085, 2021938, 2835628, 3107393, 3549288, 3723821

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

抵消

1,1

参考文献

D.奥利瓦斯托罗，《古代谜题》。班塔姆图书公司，纽约，1993年，第21页。

N.J.A.Sloane和Simon Plouffe，《整数序列百科全书》，学术出版社，1995年（包括该序列）。

链接

伯特·多贝勒，n=1..1000时的n，a（n）表

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

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

MAPLE公司

a： =proc（n）选项记忆；局部l，p，m，k；

l： =[17/91、78/85、19/51、23/38、29/33、77/29、95/23、，

77/19, 1/17, 11/13, 13/11, 15/2, 1/7, 55/1]:

如果n=1，则b（0）：=2；a（0）：=0，否则a（n-1）fi；

p： =b（n-1）；

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

p： =p*l[k]；

如果2^ilog2（p）=p，则打破fi

日期：

b（n）：=p；

m+a（n-1）

结束时间：

seq（a（n），n=1..10）#阿洛伊斯·海因茨2011年5月1日

数学

清除[a]；a[n]：=a[n]=模[{l，p，m，k}，l={17/91，78/85，19/51，23/38，29/33，77/29，95/23，77/19，1/17，11/13，13/11，15/2，1/7，55/1}；如果[n==1，b[0]=2；a[0]=0，a[n-1]]；p=b[n-1]；对于[m=1，True，m++，对于[k=1，！整数Q[p*l[[k]]]，k++]；p=p*l[[k]]；如果[2^（长度[整数位数[p，2]]-1）==p，中断[]]]；b[n]=p；m+a[n-1]]；表格[打印[a[n]]；a[n]，{n，1，30}](*Jean-François Alcover公司2014年11月25日，之后阿洛伊斯·海因茨*)

黄体脂酮素

（哈斯克尔）

导入数据。列表（元素索引）

a007547 n=a007547_列表！！n个

a007547_list=尾部$elemIndices 2$map a006530 a007542_list

--莱因哈德·祖姆凯勒2012年1月24日

交叉参考

囊性纤维变性。A007542号,A007546号.

囊性纤维变性。A006530号,A034785号.

上下文中的序列：A300463型 A204675型 A007546号*A217081型 A010007型 A172078号

相邻序列：A007544号 A007545号 A007546号*A007548号 A007549号 A007550号

关键字

容易的,非n,美好的

作者

N.J.A.斯隆

扩展

更多术语来自阿洛伊斯·海因茨2011年5月1日

状态

经核准的