%I#2012年3月31日4时14:40:00

%S 23,37,53,73127137157173229239251263271283293307313317，

%电话331347359367379383397433457503521547563571587593653，

%电话：67367773974375178779782382785387793795397710331123

%N个素数正好有两个素数。

%F a（n）>>n ^ 1.285

%e23是素数，它有两个素数，2和3；

%e127是质数，它有两个质数2和7。

%p stev_sez:=进程（n）局部i，tren，st，ans，anstren；ans:=[]：anstren:=[]：tren:=n：对于i while（tren>0）do st:=round（10*frac（tren/10））：ans:=[op（ans），st]：tren:=trunk（tren/10）：结束do；对于i从nops（ans）到1 by-1执行anstren:=[op（anstren），op（i，ans）]；od；返回（anstren）；结束：ts_stpf：=进程（n）局部i，stpf，ans；ans:=stev_sez（n）：stpf:=0：对于i从1到nops（ans）do if（isprime（op（i，ans））='true'），则stpf:=stpf+1；#素数位数fiod；返回（stpf）结束：ts_pr_prnd：=proc（n）local i，stpf，ans，ans1，tren；ans:=[]：stpf:=0:tren:=1：对于i从1到n的do，如果（i素数（i）=“真”且ts_stpf（i）=2），则ans:=[操作（ans），i]：tren:=tren+1；光纤；返回（ans）结束：ts_pr_prnd（2500）；

%Y参考A034844。

%K nonn，基础

%O 1,1号机组

%2004年4月11日，Jani Melik