%I#6 2017年2月27日02:29:26
%S 0,1,0,0,0,0,0,1,0,0,0,1,
%T 0,0,0,1,0,0,0,00,0',0,0,
%U 0,0,00,0,1,0,0,0,0',0,0
%N对于p=prime(N),函数f(x)=2*x^3-1留下p素数的迭代次数。
%H Charles R Greathouse IV,n表,n=1..10000的a(n)</a>
%o(PARI)a(n)=my(p=素数(n),i=0);while(1,如果(!ispseudoprime(2*p^3-1)),返回(i),p=2*p^3-1;i++))
%Y参考A177104,A282989。
%K nonn公司
%O 1号机组
%2017年2月26日