%I#20 2023年10月31日17:38:03
%S 111177922669233333533553337427977999978857806038487188177,
%电话:8874797039103091112181111970112581328147131143133499141587,
%电话:15877115997916434116063173933175781219613220279222601227387227227231317238829
%N个素数,在某个十进制数字<=>与其他十进制数字的任何映射下都不能成为不同的素数。
%H Michael S.Branicky,n的表,n=1..10000的a(n)</a>
%H<a href=“/index/Pri#primes”>索引到素数</a>,在某些映射下成为不同素数的素数。
%F用序列A175791、A175789、A180517到A180559的并集对所有素数进行补码。
%t fQ[n_]:=块[{id=整数位数@n},(MemberQ[id,s[[1]]]||MemberQ[Cid,s[2]]])&&PrimeQ[FromDigits[id/.{s[1]]->s[2]],s[[2]]->s[1]}]];t=Union@Flatten@Table[s={j,k};选择[Prime@Range@25000,fQ],{j,0,8},{k,j+1,9}]];补码[Prime@Range@25000,t]
%o(Python)
%o来自sympy import isprime
%o定义:
%o返回[s.translate({ord(c):ord(d),ord(d):ord(c)})用于“0123456789”中d的集合中的c,如果d!=c]
%o定义正常(n):
%o对于m(str(n))中的t,返回isprime(n)而不是any(isprim(int(t))
%o打印([k代表范围内的k(10**6),如果可以(k)])#_Michael S.Branicky_,2023年10月31日
%Y参考A175791、A180517至A180559、A175789、A180560。
%K基,nonn
%O 1,1号机组
%A _Zak Seidov和_Robert G.Wilson v_,2010年9月9日
%E a(33)及以上,来自Michael S.Branicky,2023年10月31日
|