%I#20 2022年10月18日10:45:23
%S 3,3,7,7,9,7,9,9,11,13,17,13,13,19,23,23,19,21,23,31,27,29,37,31,
%电话:33,29,33,39,37,37,51,43,49,39,39,47,43,43,44,47,47,49,49,59,51,61,
%U 51、51,53、61,81、71、57、57、79、61、81、67、63、67、69、69、73、79
%N a(N)是使级联nm为素数的最小数m>N。
%C Max Alekseyev(参见A068695中的链接)表明a(n)始终存在_N.J.A.斯隆,2020年11月13日
%C由A228323中的存在问题提出。
%H Paul Tek,n的表,n的a(n)=1..10000</a>
%H<a href=“/index/Pri#piden”>涉及n的十进制展开式的素数的索引项</a>
%e12不是素数,但13是素数,因此a(1)=3。
%e23是素数,因此a(2)=3。
%e 34、35、36不是素数,但37是素数,因此a(3)=7。
%t smc[n_]:=模[{m=n+1},如果[OddQ[n],m++];而[!PrimeQ[n*10^IntegerLength[m]+m],m=m+2];m] ;数组[smc,70](*_哈维·P·戴尔,2016年4月30日*)
%o(Python)
%o来自sympy import isprime
%o从itertools导入计数
%o def a(n):返回next(k代表count(n+1)中的k,如果是isprime(int(str(n)+str(k)))
%o打印([a(n)代表范围(1,68)中的n)]#_Michael S.Branicky_,2022年10月18日
%Y参考A228323,A068695。
%K nonn,基础
%O 1,1号机组
%A.N.J.A.斯隆,2013年8月20日