%I#30 2018年5月9日14:42:11

%S 49,777113379311091323933441311731653711435231115771019，

%电话：3113574202971726164489111193431873899116134799345907，

%电话：320475118906671931068250396355736216114998021333369067944224592773461515677019931318836286194043641

%N将上一项中的所有素数串联起来（重复），从49开始。

%C这个序列提供了一个搜索49的主素数的记录。

%C这个序列现在已经执行了117个步骤，没有达到素数（当然，在此之后它会简单地重复）。

%H Patrick De Geest，<a href=“/A056938/b056938.txt”>n的表，a（n）表示n=1..119</a>

%H P.De Geest，<a href=“http://www.worldofnumbers.com/topic1.htm“>主页素材</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/HomePrime.html“>主页Prime</a>

%t g[n_]：=（x=n；d={}；While[FactorInteger[x]！={{}，f=FactorIntiger[x，FactorComplete->True][1，1]]；x=x/f；AppendTo[d，IntegerDigits[f]]；FromDigits[扁平[d]]）；嵌套列表[g，49，25]

%t（*第二个程序：*）

%t NestList[FromDigits@Flatten@Map[IntegerDigits，FactorInteger[#]/。{p，e}/；p>=1:>如果[p==1，1，ConstantArray[p，e]]&，49，16]（*_Michael De Vlieger_，2017年4月27日*）

%o（PARI）a=矢量（35）；a[1]=49；对于（k=2，长度（a），f=系数（a[k-1]）；对于（i=1，matsize（f）[1]，l=10^ceil（log（f[i，1]）/log（10））；对于（j=1，f[i，2]，a[k]=a[k]*l+f[i、1]）））\\ M.f.Hasler_，2007年3月9日

%Y参见A006919、A037273、A037244、A037270、A238579。

%K nonn，基础

%O 1,1号机组

%A _Robert G.Wilson v_，2000年9月5日

%2017年11月28日由Max Alekseyev更新的电子文件