%I#57 2023年4月3日10:36:10
%S 1,2,25,13,37107127113167102717913710361127101311371235,
%电话:1136112310371139107910124101261349127912373479106991367,
%电话:1017913791012710079101381012341023410235102471033910267
%N最小数字,其数字可以精确地构成N个不同的素数(不一定使用所有数字)。
%C最小m,使得A039993(m)=n.-m.F.F.Hasler_,2014年3月8日
%C Mike Keith推测a(n)总是存在的,并报告他已经检查了n≤66_N.J.A.Sloane,2008年1月25日
%H Michael S.Branicky,n表,n=0..2702的a(n)
%H Michael S.Branicky,用于A076449、A072857、A076730、A134596的Python程序</a>
%H C.K.Caldwell,《主要词汇表》,<a href=“https://t5k.org/glossary/page.php?sort=Primeval“>原始编号</a>
%H J.P.Delahaye,顶级猎人,<a href=“http://web.archive.org/web/20020901024608/http://www.pour-la-science.com/numeros/pls-258/logique.htm“>1379非常原始(法语)</a>
%H Mike Keith,<a href=“http://www.cadaeic.net/primeval.htm“>包含许多嵌入素数的整数</a>
%H W.Schneider,<a href=“http://web.archive.org/web/2004/www.wschnei.de/digit-related-numbers/primeval-numbers.html“>素数</a>
%H G.Villemin的《数字年鉴》,<a href=“http://villemin.gerard.free.fr/Wwwgvmm/Premier/primeval.htm“>Nombre Primeval de Mike Keith</a>
%F a(n)=最小{m|A039993(m)=n}=最小A039993^{-1}(n).-_M.F.Hasler,2014年3月8日
%e a(10)=179,因为179是包含十个素数(即7、17、19、71、79、97、179、197、719、971)的最小数。
%t(*first-do*)Needs[“DiscreteMath`Combinatorica`”](*then*)f[n_]:=长度[Select[FromDigits/@Flatten[Permutations/@Subsets[IntegerDigits[n]],1],PrimeQ[#]&]];t=表[0,{50}];做[a=f[n];如果[a<50&&t[[a+1]]==0,t[[a+1]]=n],{n,12500}];t(*_Robert G.Wilson v_,2005年2月12日*)
%o(PARI)A076449(n)=对于(m=1,9e9,A039993(m)==n&&return(n))\\n效率不高_M.F.Hasler_,2014年3月8日
%o(Python)#参见链接程序
%Y参考A075053、A072857给出了类似的序列A134596。
%K基,nonn
%0、2
%A _Lekraj Beedassy,2002年11月7日
%E编辑:Robert G.Wilson v_,2002年11月24日
%E Keith链路由_Charles R Greathouse IV_修复,2009年8月13日
%E定义由M.F.Hasler_修订,2014年3月8日
%E a(26)由_Robert G.Wilson v修正,2014年3月12日
|