%I#22 2022年4月27日13:54:09
%S 2,3,5,7,12,25,32,45,47,52,65,67,87212232267287425432447465,
%电话62566781283284786788722872432424654667483248474887,
%电话:62126267642568326887828784486678812222872446524622687
%N以9为基数的每个后缀为素数,没有0个数字(以9为底)。
%C序列的最后一项是a(108)=428444465。
%H Nathaniel Johnston,n表,n=1..108的a(n)(完整序列)
%p a:=[[2],[3],[5],[7]]:l1:=1:l2:=4:do for k from 1 to 8 do for j from l1 to l2 do d:=[op(a[j]),k]:if(isprime(op(convert(d,base,9,9^nops(d))))then a:=[op(a),d]:fi:od:od:l1:=l2+1:l2:=nops(a):if op(转换(a[j],基数,10,10^nops(a[j])),j=1..nops(a));#_Nathaniel Johnston,2011年6月21日
%o(Python)
%o来自sympy import isprime
%o定义afull():
%o素数9字符串,alst=list(“2357”),[]
%o当len(prime9strings)>0时:
%o alst.extend(排序(prime9strings中p的int(p))
%o候选者=集合(d+p代表素数中的p,字符串代表“12345678”中的d)
%o prime9strings=[c代表候选中的c,如果是isprime(int(c,9))]
%o返回alst
%o打印(afull())#_Michael S.Branicky_,2022年4月27日
%Y参见A024779、A024780、A024881、A02478、A024483、A024795。
%K nonn、base、easy、fini、full
%O 1,1号机组
%A·热心的W·威尔逊_