%I#13 2022年10月22日14:12:36
%S 43,53,971071613242333313631424146435147534757565353636361,
%电话6661676169677573767373817987839689102101106103108107,
%电话:111109114113116113123113125113129127130127135131137131144139145139147139148139
%由N和前一个素数(N)串联而成的N个素数。
%H K.D.Bajpai,n的表格,n=1..9135的a(n)</a>
%e43位于序列中,因为它是由4和3串联而成的素数,其中3是最大的素数<4。
%e 1613位于序列中,因为它是由16和13串联而成的素数,其中13是小于16的最大素数。
%p with(numtheory):选择(isprime,[seq((n*10^floor)(evalf(log10(prevprime(n))+1,100))+prevprim(n),n=3..500)]);
%pP:=proc(i)局部a,n,c;c: =1;对于n从3乘1到i do a:=n*10^ floor(evalf(log10(prevprime(n))+1100))+prevprime(n);如果(isprime(a)),则lprint(c,a);c: =c+1;fi;od;结束:P(10000);
%t选择[Table[FromDigits[Join[IntegerDigits[n],IntegerDigits[NextPrime[n,-1]]],{n,200}],PrimeQ](*H arvey P.Dale_,2022年10月22日*)
%Y参考A000040、A084667、A08466、A151799、A151800。
%K nonn,基础
%O 1,1号机组
%A _K.D.Bajpai,2017年1月1日
|