%I#10 2013年7月13日12:03:12

%S 22,23,25,27,32,33,35,37,52,53,55,57,72,73,75,77122123125127132，

%电话133135137152153155157172173175177202203205207212213，

%电话：21521722022122422622822230231236238239242243245

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

%C A193238（a（n））=2；A118950的子序列。[_Reinhard Zumkeller_，2011年7月19日]

%H Reinhard Zumkeller，n的表，n=1..10000的a（n）</a>

%e25有两个素数，2和5；

%e 207有两个素数，即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:=[操作（ans），st]：tren：=trunc（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；#素数位数；RETURN（stpf）end:ts_pr_nd:=proc（n）local i，stpf，ans，ans1，tren；ans:=[]：stpf:=0:tren:=1：对于i从1到n的do，如果（ts_stpf（i）=2），则ans:=[操作（ans），i]：tren:=tren+1；光纤；返回（ans）结束：ts_pr_nd（500）；

%o（哈斯克尔）

%o导入数据。列表（元素索引）

%o a092624 n=a092624_列表！！（n-1）

%o a092624_list=元素索引2 a193238_list

%o——_ Inhard Zumkeller_，2011年7月19日

%Y参见A034895、A046034、A085557、A019546、A034844。

%Y参考A084984、A092620和A092625。

%K nonn，基础

%O 1,1号机组

%2004年4月11日，Jani Melik