%I#38 2023年1月2日12:30:49

%S 1,3,2,9,5,21,4,7,6,13,10,19,16,27,8,11,15,23,12,17,20,29,14,33,26,47，

%电话：18,31,25,39,22,37,24,41,30,49,34,57,28,43,36,59,32,51,38,53,42,61,45，

%U 67,58,69,55,63,44,81,35,71,48,77,50,87,62,99,40,73,46

%N a（1）=1；此后，a（n）是序列中尚未出现的最小数字m，使得级联a（n-1）m或ma（n-1）中的至少一个是素数。

%C每个数字都出现在序列中吗？

%如果a（n）与10互素，则根据狄利克雷定理，a（n+1）存在_埃里克·施密特（Eric M.Schmidt），2013年8月20日【更详细地说：假设a（n）有d个数字，考虑算术级数k*10^d+a（n

%C A068695中的参数表明a（n）始终存在_N.J.A.Sloane，2020年11月11日

%H Alois P.Heinz，n的表，n=1..10000的a（n）</a>

%H Eric Angelini，<a href=“http://list.seqfan.eu/oldermail/seqfan/2013-August/011576.html“>Primes by concatenation</a>，Posting to the Sequence Fans Mailing List，2013年8月14日。

%H Michael De Vlieger，a（n）的标记对数散点图，用红色表示m与10的互质，否则用深蓝色表示。

%H<a href=“/index/Pri#piden”>涉及n的十进制展开式的素数的索引项</a>

%t f[s_]：=块[{k=2，idj=IntegerDigits@s[[-1]]}，而[idk=Integer Digits@k；成员Q[s，k]||（！PrimeQ@FromDigits@1join[idj，idk]&&！PrimeQ@FromDigits@Join[idk，idj]），k++]；附加[s，k]]；巢穴[f，{1}，66]（*_Robert G.Wilson v_，2013年8月20日*）

%o（Python）

%o来自症状输入isprime

%o从itertools导入岛

%o定义c（s，t）：返回isprime（int（s+t））或isprime

%o定义代理（）：

%o集合，k，mink=集合（），1，2

%o为True时：

%o an=k；增加（a）；产量an；s、 k=str（an），水貂

%o当k在aset中或不在c（s，str（k））中时：k+=1

%o当水貂在笼子里时：水貂+=1

%o打印（列表（islice（agen），56））#_Michael S.Branicky_，2022年10月17日

%Y出现的素数见A228324。

%Y参考A069695，A228325。

%K nonn，基础

%O 1,2号机组

%A.N.J.A.斯隆，2013年8月20日

%E来自_Alois P.Heinz的更多条款，2013年8月20日