%I#17 2020年1月28日01:22:31

%S 7,717197193719337193337193331771933317771933317411，

%电话：71933317711037193331771103971933317110393719333117110397193，

%电话：719333177110393913371933311711039133237193331741103913323097193331771101391332309771933317110339133230947

%N a（N+1）是以a（N）开头的次小素数，初始素数是a（0）=7。

%H Robert Israel，n的表，n=0..250的a（n）</a>

%pf:=proc（n）选项记忆；局部q，d，v；

%pq:=进程名（n-1）；

%从1 do到d的p

%pv:=下一素数（q*10^d）；

%p如果v<（q+1）*10^d，则返回vfi

%日期

%p端程序：

%p f（0）：=7：

%p映射（f，[0..20]美元）；#_罗伯特·伊斯雷尔，2020年1月26日

%t嵌套[Function[{a，n}，Append[#，Catch@Do[Do[If[PrimeQ@#，Throw@#；Break[]，#]&@FromDigits[n~Join~PadLeft[IntegerDigits[（5 j-4+Mod[3 j+2，4]）/2]，i]]，{j，4*10^（i-1）}]，{i，Infinity}]]@@{#，IntegerDigits[#[-1]]}&，{7}，17]（*_Michael De Vlie ger_，2020年1月26日*）

%o（PARI）

%o next_A048552（p）=对于（i=1，oo，my（q=下一素数（p*=10））；q-p>10^i | |返回（q））

%o A048552（n，p=7）=向量（n，i，i>1&&p=next_A0448552（p）；p） \\ M.F.Hasler，2020年1月26日

%Y参见A048549、A048550、A048551、A048542、A04855/3、A048454、A04855、A048566。

%K nonn，基础

%0、1

%A _帕特里克·德·吉斯特，1999年5月15日