%I#6 2013年2月22日21:38:32
%1237131913671523157117231753197919972131217922392273,
%电话:2293229723572377238323892417243724732531257925932617,
%电话:27112731275327532797311931673257327133133371354735713593361736713677
%N个素数包含五个嵌入素数。
%C A079066(a(n))=5。
%t f[n_]:=块[{id=整数位数@n},len=长度@id-1;计数[PrimeQ@Union[FromDigits@#&/@Flatten[Table[Partition[id,k,1],{k,len}],1]],True]+1];选择[Prime@Range@510,f@#==6&]
%o(哈斯克尔)
%o导入数据。列表(元素索引)
%o a179913 n=a179913_列表!!(n-1)
%o a179913_list=map(a000040.(+1))$elemIndices 5 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日
|