编辑
经核准的
压扁[Position[LinearRecurrence[{1,1,1?底漆Q]]-1(*_这个 程序 拿 一 长的 时间 到 运行 *) (* _Harvey P.Dale_,2018年4月26日*)
压扁[Position[LinearRecurrence[{1,1,1?底漆Q]]-1(*哈维·P·戴尔2018年4月26日*)
检验过的
提出
非n,更多,改变
(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日