%I#6 2013年2月22日21:38:32

%S 1237312379127131317115233173331735917971193731937921139，

%电话：21319229732316723197233112347323537235932367123671，

%电话：237732977241132413724179241972431724337243792473325237

%带有八个嵌入素数的N个素数。

%C A079066（a（n））=8。

%t f[n_]：=块[{id=整数位数@n}，len=长度@id-1；计数[PrimeQ@Union[FromDigits@#&/@Flatten[Table[Partition[id，k，1]，{k，len}]，1]]，True]+1]；选择[Prime@Range@2790，f@#==9&]

%o（哈斯克尔）

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

%o a179916 n=a179916_列表！！（n-1）

%o a179916_list=地图（a000040.（+1））$elemIndices 8 a079066_list

%o--_Reinhard Zumkeller，2011年7月19日

%Y参见A039996、A079397、A033274、A034844、A092621、A179909-A179919、A033174。

%K基，nonn

%O 1，1

%A _Robert G.Wilson v_，2010年8月1日