%I#18 2024年1月20日09:24:58
%S 2,11101233277409499521547587607617631659661677719727,
%电话:739743751769773780882782983985863881883919929941,
%电话:9539719919971009102110311049105110611063106910871103110115111631171118111871193
%A070196中的N个素数。
%C素数p,这样对于某些k,p=k+k的十进制数字的排序版本。
%H Robert Israel,n的表,a(n)表示n=1..10000</a>
%e a(4)=233是一个项,因为233=A070196(121)=121+112是素数。
%e a(5)=277是三种形式的项:277=143+134=152+125=161+116。
%p f:=proc(n)局部L,i;
%p L:=排序(convert(n,base,10),`>`);
%p加(L[i]*10^(i-1),i=1..nops(L))+n;
%p端程序:
%p选择(t->t<10000和isprime(t),映射(f,{$1..9999}));
%o(Python)
%o来自sympy import isprime
%o定义缺陷(极限):
%o cands=范围(LIMIT)中的k的集合(k+int(“”.join(排序(str(k))))
%o返回排序的(如果k<=极限和isprime(k),则k代表k,单位为坎迪斯)
%o打印(aupto(1200))#_Michael S.Branicky_,2024年1月15日
%Y参考A070196。
%K nonn,基础
%O 1,1号机组
%以色列罗贝尔特,2024年1月15日
|