%I#17 2018年4月26日12:06:47
%序号9,17,251253501322108935199528
%N八阶斐波那契数列中素数的指数,A079262。
%C a(9)>2*10^5。
%H Tony D.Noe和Jonathan Vos Post,<a href=“http://www.cs.uwaterloo.ca/journals/JIS/VOL8/Noe/noe5.html“>斐波那契n步和卢卡斯n步序列中的素数
%t a={0,0,0,0,0,0,0,1};步骤=8;lst={};对于[n=step,n<=1000,n++,sum=Plus@@a;如果[PrimeQ[sum],AppendTo[lst,n]];a=向左旋转[a];a[[step]]=总和];第一次
%t展平[Position[LinearRecurrence[{1,1,1,1,1,1,1,1,1},{0,0,0,1,0,1},200000],_?PrimeQ]]-1(*运行该程序需要很长时间*)(*哈维·P·戴尔,2018年4月26日*)
%o(PARI)列表a(nn)={gf=x^7/(1-x-x^2-x^3-x^4-x^5-x^6-x^7-x^8);对于(n=0,nn,if(i素数(gf+o(x^(n+1)),n)),打印1(n,“,”););}\\米歇尔·马库斯,2015年1月12日
%Y参见A001590、A001631、A100683、A231574、A231555、A232542、A214899、A230607、A020992、A232498、A214727、A081172、A214752、A141523、A214825、A235862、A000288、A000322、A000383、A249413、A060455、A079262。
%K nonn,更多
%O 1,1号机组
%2015年1月9日A _罗贝尔价格
|