%I#43 2020年3月13日08:37:32

%S 2,3,5,7,11,13,37,41,43,47,53,59,61,83,89113127181191211223，

%电话：593599601607659661691701757761853857859863947953977，

%电话：9839911427142914331438111823203928792897290329093061

%N以16为基数的右旋素数。

%具有这些性质的C数：（i）a（n）是素数，（ii）它在函数E（k）=k\16=floor（k/16）下的像是零或具有相同的性质。【修订人：M.F.Hasler_，2018年11月7日】

%C序列有414个非零成员。

%C否则，整数p>0，使得floor（p/16^k）是素数，或者对于所有k>=0的整数为零。可以放宽到p>=0，即包括一个初始项0，对应于一个空的数字串。递归定义也可以用于产生所有的项，从素数<16开始，并为列表中的每个项添加一个数字到该项后得到的素数，即16倍于该项和16倍以上的素数。该序列也可以看作是一个表，其第n行产生以16为基数的n位数的项：行长度为A237601，第n行的最后一项为A237602（n）_M.F.Hasler，2018年11月7日

%H Stanislav Sykora，n表，n=1..414的a（n）</a>

%H Stanislav Sykora，<a href=“https://oeis.org/wiki/File:GeneticThreads.txt“>遗传线程的PARI/GP脚本</a>

%e a（414）=16778492037124607，在十六进制表示法3B9BF319BD51FF中，属于a（n），因为它的每个十六进制前缀（包括它自己）都是素数。作为这些数字中最大的一个，它也是A023107的成员。

%t选择[Range@3600，AllTrue[Most[DeleteDuplicates@FixedPointList[f，#]]，PrimeQ]&]（*_Michael De Vlieger_，2015年3月7日，版本10*）

%o（PARI）GT_Trunc1（nmax，prop，b=10）={\\有关详细信息，请参阅链接

%o my（n=0，v=矢量（nmax），g=1，lgs=1，Ige，an，c）；

%o表示（k=1，b-1，如果（prop（k），v[n++]=k））；

%o lge=n；c=lge-lgs+1；

%o while（c，g++；对于（k=lgs，lge，对于（m=0，b-1，an=b*v[k]+m；

%o如果（prop（an），v[n++]=an；如果（n>=nmax，返回（v））；）；）；

%o lgs=lge+1；lge=n；c=lge-lgs+1；）；

%o如果（n，返回（v[1..n]）；

%o打印（“无解决方案”）；}

%o v=GT_Trunc1（1000000，isprime，16）

%o（PARI）isok（n）={while（n，if（！isprime（n），return（0））；n=16）；1}Joerg Arndt_，2015年3月7日

%o（PARI）my（A=素数（[0,15]），i=1）；直到（#A<i+=1，A=concat（A，素数（[A[i]，A[i]+1]*16））#A237600=A.F.Hasler_，2018年11月7日

%o（Python）

%o从gmpy2导入is_prime

%o A237600_列表=[]

%o表示范围（1,10**9）内的n：

%o如果is_prime（n）：

%o s=格式（n，'x'）

%o对于范围（1，len（s））内的i：

%o如果不是is_prime（int（s[：-i]，16））：

%o中断

%o其他：

%o A237600_list.append（n）#_Chai Wah Wu_，2015年4月16日

%o（Python）

%o来自sympy import primerage

%o p=λx：列表（素数范围（x，x+16））；A237600=p（0）；i=0

%o而i<len（A237600）：A237600+=p（A237600[i]*16）；i+=1#_M.F.Hasler_，2020年3月11日

%Y参见A023107、A024770（基数10）、A237601、A237602、A254756。

%K nonn、base、fini、full、easy、tabf

%O 1,1号机组

%A _Stanislav Sykora，2014年2月15日