%I#8 2014年3月11日16:48:15

%S 2,3,5,7,3,3,7,2,3,3,1,7,3A,7,7,5,5,7，7,3,12,7,33,7,1,3,5，

%电话：5,7,3,7,3，7,3,1,7,2,2,2,3,2,7,2,2,2,2,3,1,2,5,7,1,3,2,2,2

%N取A000040，省略逗号：23571113171923…，选择1位素数。

%e在序列2357111317192329…（不带分隔符的素数）中，一位数素数是2,3,5,7,3,7,2,3,2。。。

%t p200=展平[整数位数[素数[范围[200]]]；n=4；（*n位素数！*）pn=分区[p200，n，1]；ln=长度[pn]；tab=表格[总和[10^（n-k）*pn[[i，k]]，{k，n}]，{i，ln}]；选择[tab，PrimeQ]

%o（哈斯克尔）

%o a073034 n=a073034_列表！！（n-1）

%o a073034_list=过滤器（`elem`[2,3,5,7]）a033308_list

%o---Reinhard Zumkeller_，2014年3月11日

%Y参考A010051、A033308。

%K easy、nonn、base

%O 1,1号机组

%A _Zak Seidov，2002年8月22日