%I#23 2022年2月7日02:04:44

%第2,3,3,3,3,23,7,3,5,3,19149571,3131,3151389,3139,97,59277491页，

%电话：181,59,676471117797433,41367,29487719283347,971103193821，

%U 13,29,319476191672294792711217,792777241361751,834603317

%N最小的素数与序列的所有先前项连接形成素数。

%D A.Murthy，Smar。《概念杂志》第11卷，第1-2-3期，2000年春季

%H Paul Zimmermann，n表，n=1..1127的a（n）

%e序列的第六项是23，因为这是最小的素数，当它与前面的项2、3、3、三相连时，会产生一个素数（2333323）。

%t nxt[｛lst_，n_｝]：=模块[｛id=IntegerDigits[lst]，np=2｝，While[！PrimeQ[FromDigits[Join[id，IntegerDigits[np]]]，np=NextPrime[np]]；{FromDigits[Join[id，IntegerDigits[np]]]，np}]；转座[NestList[nxt，{2,2}，60]][2]]（*_哈维·P·戴尔，2015年5月25日*）

%tnxt[{l_，a_}]：=模块[{k=2}，而[CompositeQ[l*10^IntegerLength[k]+k]，k=NextPrime[k]]；{l*10^整数长度[k]+k，k}]；NestList[nxt，{2,2}，60][[All，2]]（*哈维·P·戴尔，2020年8月9日*）

%Y参考A048549和A083758。

%K nonn，基本，不错

%O 1,1号机组

%A_Felice Russo，1999年12月15日

%E由T.D.Noe_延长，2010年5月1日