%I#9 2017年9月16日00:30:48
%编号6161803398874989
%N素数由小数展开式1/(黄金比率)的起始数字构成。
%C下一项由1/(黄金比率)的前887位数字组成,太大了,无法在此显示。
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/Phi-Prime.html“>Phi-Prime</a>
%p位数:=1000:n0:=evalf((sqrt(5)-1)/2):对于i从1到10000 do t1:=trunc(10^i*n0):如果是素数(t1),则打印(t1
%t使用[{gr=RealDigits[1/GoldenRatio,101000][[1]]},选择[Table[FromDigits[Take[gr,n]],{n,1000}],PrimeQ]](*哈维·P·戴尔,2012年10月17日*)
%K nonn、base、bref
%O 1,1号机组
%2010年2月17日,拉格瑙市
|